/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Mac / Mod / TextUtils

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 54 65 78 74 55 74 | 69 6c 73 00 00 00 00 00 |..TextUt|ils.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 38 cc 00 | 00 01 3e ad 0d b3 2e ad |.....8..|..>.....|
|00000060| 46 c0 df 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |F.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ad 60 00 00 |........|.....`..|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 49 |sc......|.......I|
|00000100| 38 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |8.......|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 97 37 |Desc....|.......7|
|00000160| 00 00 09 00 00 00 8f 37 | 00 00 00 00 00 00 00 82 |.......7|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 39 37 00 00 |........|....97..|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 b4 35 00 00 |sc......|.....5..|
|000001f0| 0f 00 00 00 ac 35 00 00 | 00 00 00 00 00 00 6c 01 |.....5..|......l.|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 38 00 00 00 00 00 00 00 |........|8.......|
|00000230| 1f 00 00 00 00 00 00 00 | 00 01 00 00 00 00 47 65 |........|......Ge|
|00000240| 6e 65 76 61 00 7c be 01 | 00 00 00 00 00 90 01 00 |neva.|..|........|
|00000250| 00 00 00 4e 00 00 00 00 | 00 00 00 00 00 2a 75 15 |...N....|.....*u.|
|00000260| 54 c8 06 00 82 f1 54 65 | 78 74 52 75 6c 65 72 73 |T.....Te|xtRulers|
|00000270| 2e 53 74 64 52 75 6c 65 | 72 44 65 73 63 00 f1 54 |.StdRule|rDesc..T|
|00000280| 65 78 74 52 75 6c 65 72 | 73 2e 52 75 6c 65 72 44 |extRuler|s.RulerD|
|00000290| 65 73 63 00 f2 03 00 00 | 00 00 00 00 00 00 00 00 |esc.....|........|
|000002a0| 00 07 00 00 00 bf 00 00 | 00 00 00 00 83 f1 54 65 |........|......Te|
|000002b0| 78 74 52 75 6c 65 72 73 | 2e 53 74 64 53 74 79 6c |xtRulers|.StdStyl|
|000002c0| 65 44 65 73 63 00 f1 54 | 65 78 74 52 75 6c 65 72 |eDesc..T|extRuler|
|000002d0| 73 2e 53 74 79 6c 65 44 | 65 73 63 00 f2 07 00 00 |s.StyleD|esc.....|
|000002e0| 00 00 00 00 00 00 00 00 | 00 08 00 00 00 76 00 00 |........|.....v..|
|000002f0| 00 00 00 00 00 82 f1 54 | 65 78 74 52 75 6c 65 72 |.......T|extRuler|
|00000300| 73 2e 41 74 74 72 69 62 | 75 74 65 73 44 65 73 63 |s.Attrib|utesDesc|
|00000310| 00 f2 04 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 40 00 00 00 00 01 | 00 00 00 00 00 00 00 00 |..@.....|........|
|00000330| 20 a3 5a 00 00 00 00 00 | 7c be 01 00 38 63 00 00 | .Z.....||...8c..|
|00000340| 01 00 00 00 01 00 00 00 | 07 00 e0 a5 01 00 c0 4b |........|.......K|
|00000350| 03 00 a0 f1 04 00 80 97 | 06 00 60 3d 08 00 40 e3 |........|..`=..@.|
|00000360| 09 00 60 36 1e 00 00 00 | 00 e7 33 00 00 ff 4d 4f |..`6....|..3...MO|
|00000370| 44 55 4c 45 20 4d 61 63 | 54 65 78 74 55 74 69 6c |DULE Mac|TextUtil|
|00000380| 73 3b 0d 0d 49 4d 50 4f | 52 54 20 53 59 53 54 45 |s;..IMPO|RT SYSTE|
|00000390| 4d 2c 20 4d 61 63 54 79 | 70 65 73 2c 20 4d 61 63 |M, MacTy|pes, Mac|
|000003a0| 4f 53 55 74 69 6c 73 3b | 0d 0d 43 4f 4e 53 54 0d |OSUtils;|..CONST.|
|000003b0| 09 43 4f 44 45 20 3d 20 | 31 3b 0d 0d 02 43 4f 4e |.CODE = |1;...CON|
|000003c0| 53 54 0d 28 2a 20 43 6f | 6e 73 74 61 6e 74 73 20 |ST.(* Co|nstants |
|000003d0| 66 6f 72 20 74 72 75 6e | 63 57 68 65 72 65 20 61 |for trun|cWhere a|
|000003e0| 72 67 75 6d 65 6e 74 20 | 69 6e 20 54 72 75 6e 63 |rgument |in Trunc|
|000003f0| 53 74 72 69 6e 67 20 61 | 6e 64 20 54 72 75 6e 63 |String a|nd Trunc|
|00000400| 54 65 78 74 20 2a 29 0d | 09 74 72 75 6e 63 45 6e |Text *).|.truncEn|
|00000410| 64 2a 20 3d 20 30 3b 09 | 28 2a 20 54 72 75 6e 63 |d* = 0;.|(* Trunc|
|00000420| 61 74 65 20 61 74 20 65 | 6e 64 20 2a 29 0d 09 74 |ate at e|nd *)..t|
|00000430| 72 75 6e 63 4d 69 64 64 | 6c 65 2a 20 3d 20 30 34 |runcMidd|le* = 04|
|00000440| 30 30 30 48 3b 09 28 2a | 20 54 72 75 6e 63 61 74 |000H;.(*| Truncat|
|00000450| 65 20 69 6e 20 6d 69 64 | 64 6c 65 20 2a 29 0d 09 |e in mid|dle *)..|
|00000460| 73 6d 54 72 75 6e 63 45 | 6e 64 2a 20 3d 20 30 3b |smTruncE|nd* = 0;|
|00000470| 09 28 2a 20 54 72 75 6e | 63 61 74 65 20 61 74 20 |.(* Trun|cate at |
|00000480| 65 6e 64 20 2d 20 6f 62 | 73 6f 6c 65 74 65 20 2a |end - ob|solete *|
|00000490| 29 0d 09 73 6d 54 72 75 | 6e 63 4d 69 64 64 6c 65 |)..smTru|ncMiddle|
|000004a0| 2a 20 3d 20 30 34 30 30 | 30 48 3b 09 28 2a 20 54 |* = 0400|0H;.(* T|
|000004b0| 72 75 6e 63 61 74 65 20 | 69 6e 20 6d 69 64 64 6c |runcate |in middl|
|000004c0| 65 20 2d 20 6f 62 73 6f | 6c 65 74 65 20 2a 29 0d |e - obso|lete *).|
|000004d0| 28 2a 20 43 6f 6e 73 74 | 61 6e 74 73 20 66 6f 72 |(* Const|ants for|
|000004e0| 20 54 72 75 6e 63 53 74 | 72 69 6e 67 20 61 6e 64 | TruncSt|ring and|
|000004f0| 20 54 72 75 6e 63 54 65 | 78 74 20 72 65 73 75 6c | TruncTe|xt resul|
|00000500| 74 73 20 2a 29 0d 09 6e | 6f 74 54 72 75 6e 63 61 |ts *)..n|otTrunca|
|00000510| 74 65 64 2a 20 3d 20 30 | 3b 09 28 2a 20 4e 6f 20 |ted* = 0|;.(* No |
|00000520| 74 72 75 6e 63 61 74 69 | 6f 6e 20 77 61 73 20 6e |truncati|on was n|
|00000530| 65 63 65 73 73 61 72 79 | 20 2a 29 0d 09 74 72 75 |ecessary| *)..tru|
|00000540| 6e 63 61 74 65 64 2a 20 | 3d 20 31 3b 09 28 2a 20 |ncated* |= 1;.(* |
|00000550| 54 72 75 6e 63 61 74 69 | 6f 6e 20 70 65 72 66 6f |Truncati|on perfo|
|00000560| 72 6d 65 64 20 2a 29 0d | 09 74 72 75 6e 63 45 72 |rmed *).|.truncEr|
|00000570| 72 2a 20 3d 20 2d 31 3b | 09 28 2a 20 47 65 6e 65 |r* = -1;|.(* Gene|
|00000580| 72 61 6c 20 65 72 72 6f | 72 20 2a 29 0d 09 73 6d |ral erro|r *)..sm|
|00000590| 4e 6f 74 54 72 75 6e 63 | 61 74 65 64 2a 20 3d 20 |NotTrunc|ated* = |
|000005a0| 30 3b 09 28 2a 20 4e 6f | 20 74 72 75 6e 63 61 74 |0;.(* No| truncat|
|000005b0| 69 6f 6e 20 77 61 73 20 | 6e 65 63 65 73 73 61 72 |ion was |necessar|
|000005c0| 79 20 2d 20 6f 62 73 6f | 6c 65 74 65 20 2a 29 0d |y - obso|lete *).|
|000005d0| 09 73 6d 54 72 75 6e 63 | 61 74 65 64 2a 20 3d 20 |.smTrunc|ated* = |
|000005e0| 31 3b 09 28 2a 20 54 72 | 75 6e 63 61 74 69 6f 6e |1;.(* Tr|uncation|
|000005f0| 20 70 65 72 66 6f 72 6d | 65 64 09 2d 20 6f 62 73 | perform|ed.- obs|
|00000600| 6f 6c 65 74 65 20 2a 29 | 0d 09 73 6d 54 72 75 6e |olete *)|..smTrun|
|00000610| 63 45 72 72 2a 20 3d 20 | 2d 31 3b 09 28 2a 20 47 |cErr* = |-1;.(* G|
|00000620| 65 6e 65 72 61 6c 20 65 | 72 72 6f 72 20 2d 20 6f |eneral e|rror - o|
|00000630| 62 73 6f 6c 65 74 65 20 | 2a 29 0d 0d 09 66 56 4e |bsolete |*)...fVN|
|00000640| 75 6d 62 65 72 2a 20 3d | 20 30 3b 09 28 2a 20 66 |umber* =| 0;.(* f|
|00000650| 69 72 73 74 20 76 65 72 | 73 69 6f 6e 20 6f 66 20 |irst ver|sion of |
|00000660| 4e 75 6d 46 6f 72 6d 61 | 74 53 74 72 69 6e 67 20 |NumForma|tString |
|00000670| 2a 29 0d 28 2a 20 53 70 | 65 63 69 61 6c 20 6c 61 |*).(* Sp|ecial la|
|00000680| 6e 67 75 61 67 65 20 63 | 6f 64 65 20 76 61 6c 75 |nguage c|ode valu|
|00000690| 65 73 20 66 6f 72 20 4c | 61 6e 67 75 61 67 65 20 |es for L|anguage |
|000006a0| 4f 72 64 65 72 20 2a 29 | 0d 09 73 79 73 74 65 6d |Order *)|..system|
|000006b0| 43 75 72 4c 61 6e 67 2a | 20 3d 20 2d 32 3b 09 28 |CurLang*| = -2;.(|
|000006c0| 2a 20 63 75 72 72 65 6e | 74 20 28 69 74 6c 62 4c |* curren|t (itlbL|
|000006d0| 61 6e 67 29 20 6c 61 6e | 67 20 66 6f 72 20 73 79 |ang) lan|g for sy|
|000006e0| 73 74 65 6d 20 73 63 72 | 69 70 74 20 2a 29 0d 09 |stem scr|ipt *)..|
|000006f0| 73 79 73 74 65 6d 44 65 | 66 4c 61 6e 67 2a 20 3d |systemDe|fLang* =|
|00000700| 20 2d 33 3b 09 28 2a 20 | 64 65 66 61 75 6c 74 20 | -3;.(* |default |
|00000710| 28 74 61 62 6c 65 29 20 | 6c 61 6e 67 20 66 6f 72 |(table) |lang for|
|00000720| 20 73 79 73 74 65 6d 20 | 73 63 72 69 70 74 20 2a | system |script *|
|00000730| 29 0d 09 63 75 72 72 65 | 6e 74 43 75 72 4c 61 6e |)..curre|ntCurLan|
|00000740| 67 2a 20 3d 20 2d 34 3b | 09 28 2a 20 63 75 72 72 |g* = -4;|.(* curr|
|00000750| 65 6e 74 20 28 69 74 6c | 62 4c 61 6e 67 29 20 6c |ent (itl|bLang) l|
|00000760| 61 6e 67 20 66 6f 72 20 | 63 75 72 72 65 6e 74 20 |ang for |current |
|00000770| 73 63 72 69 70 74 20 2a | 29 0d 09 63 75 72 72 65 |script *|)..curre|
|00000780| 6e 74 44 65 66 4c 61 6e | 67 2a 20 3d 20 2d 35 3b |ntDefLan|g* = -5;|
|00000790| 09 28 2a 20 64 65 66 61 | 75 6c 74 20 6c 61 6e 67 |.(* defa|ult lang|
|000007a0| 20 66 6f 72 20 63 75 72 | 72 65 6e 74 20 73 63 72 | for cur|rent scr|
|000007b0| 69 70 74 20 2a 29 0d 09 | 73 63 72 69 70 74 43 75 |ipt *)..|scriptCu|
|000007c0| 72 4c 61 6e 67 2a 20 3d | 20 2d 36 3b 09 28 2a 20 |rLang* =| -6;.(* |
|000007d0| 63 75 72 72 65 6e 74 20 | 28 69 74 6c 62 4c 61 6e |current |(itlbLan|
|000007e0| 67 29 20 6c 61 6e 67 20 | 66 6f 72 20 73 70 65 63 |g) lang |for spec|
|000007f0| 69 66 69 65 64 20 73 63 | 72 69 70 74 20 2a 29 0d |ified sc|ript *).|
|00000800| 09 73 63 72 69 70 74 44 | 65 66 4c 61 6e 67 2a 20 |.scriptD|efLang* |
|00000810| 3d 20 2d 37 3b 09 28 2a | 20 64 65 66 61 75 6c 74 |= -7;.(*| default|
|00000820| 20 6c 61 6e 67 75 61 67 | 65 20 66 6f 72 20 61 20 | languag|e for a |
|00000830| 73 70 65 63 69 66 69 65 | 64 20 73 63 72 69 70 74 |specifie|d script|
|00000840| 20 2a 29 0d 0d 09 69 75 | 53 79 73 74 65 6d 43 75 | *)...iu|SystemCu|
|00000850| 72 4c 61 6e 67 2a 20 3d | 20 2d 32 3b 09 28 2a 20 |rLang* =| -2;.(* |
|00000860| 3c 6f 62 73 6f 6c 65 74 | 65 3e 20 63 75 72 72 65 |<obsolet|e> curre|
|00000870| 6e 74 20 28 69 74 6c 62 | 4c 61 6e 67 29 20 6c 61 |nt (itlb|Lang) la|
|00000880| 6e 67 20 66 6f 72 20 73 | 79 73 74 65 6d 20 73 63 |ng for s|ystem sc|
|00000890| 72 69 70 74 20 2a 29 0d | 09 69 75 53 79 73 74 65 |ript *).|.iuSyste|
|000008a0| 6d 44 65 66 4c 61 6e 67 | 2a 20 3d 20 2d 33 3b 09 |mDefLang|* = -3;.|
|000008b0| 28 2a 20 3c 6f 62 73 6f | 6c 65 74 65 3e 20 64 65 |(* <obso|lete> de|
|000008c0| 66 61 75 6c 74 20 28 74 | 61 62 6c 65 29 20 6c 61 |fault (t|able) la|
|000008d0| 6e 67 20 66 6f 72 20 73 | 79 73 74 65 6d 20 73 63 |ng for s|ystem sc|
|000008e0| 72 69 70 74 20 2a 29 0d | 09 69 75 43 75 72 72 65 |ript *).|.iuCurre|
|000008f0| 6e 74 43 75 72 4c 61 6e | 67 2a 20 3d 20 2d 34 3b |ntCurLan|g* = -4;|
|00000900| 09 28 2a 20 3c 6f 62 73 | 6f 6c 65 74 65 3e 20 63 |.(* <obs|olete> c|
|00000910| 75 72 72 65 6e 74 20 28 | 69 74 6c 62 4c 61 6e 67 |urrent (|itlbLang|
|00000920| 29 20 6c 61 6e 67 20 66 | 6f 72 20 63 75 72 72 65 |) lang f|or curre|
|00000930| 6e 74 20 73 63 72 69 70 | 74 20 2a 29 0d 09 69 75 |nt scrip|t *)..iu|
|00000940| 43 75 72 72 65 6e 74 44 | 65 66 4c 61 6e 67 2a 20 |CurrentD|efLang* |
|00000950| 3d 20 2d 35 3b 09 28 2a | 20 3c 6f 62 73 6f 6c 65 |= -5;.(*| <obsole|
|00000960| 74 65 3e 20 64 65 66 61 | 75 6c 74 20 6c 61 6e 67 |te> defa|ult lang|
|00000970| 20 66 6f 72 20 63 75 72 | 72 65 6e 74 20 73 63 72 | for cur|rent scr|
|00000980| 69 70 74 20 2a 29 0d 09 | 69 75 53 63 72 69 70 74 |ipt *)..|iuScript|
|00000990| 43 75 72 4c 61 6e 67 2a | 20 3d 20 2d 36 3b 09 28 |CurLang*| = -6;.(|
|000009a0| 2a 20 3c 6f 62 73 6f 6c | 65 74 65 3e 20 63 75 72 |* <obsol|ete> cur|
|000009b0| 72 65 6e 74 20 28 69 74 | 6c 62 4c 61 6e 67 29 20 |rent (it|lbLang) |
|000009c0| 6c 61 6e 67 20 66 6f 72 | 20 73 70 65 63 69 66 69 |lang for| specifi|
|000009d0| 65 64 20 73 63 72 69 70 | 74 20 2a 29 0d 0d 28 2a |ed scrip|t *)..(*|
|000009e0| 20 3c 6f 62 73 6f 6c 65 | 74 65 3e 20 64 65 66 61 | <obsole|te> defa|
|000009f0| 75 6c 74 20 6c 61 6e 67 | 75 61 67 65 20 66 6f 72 |ult lang|uage for|
|00000a00| 20 61 20 73 70 65 63 69 | 66 69 65 64 20 73 63 72 | a speci|fied scr|
|00000a10| 69 70 74 20 2a 29 0d 09 | 69 75 53 63 72 69 70 74 |ipt *)..|iuScript|
|00000a20| 44 65 66 4c 61 6e 67 2a | 20 3d 20 2d 37 3b 0d 0d |DefLang*| = -7;..|
|00000a30| 09 0d 54 59 50 45 0d 09 | 53 74 79 6c 65 64 4c 69 |..TYPE..|StyledLi|
|00000a40| 6e 65 42 72 65 61 6b 43 | 6f 64 65 2a 20 3d 20 53 |neBreakC|ode* = S|
|00000a50| 48 4f 52 54 49 4e 54 3b | 0d 0d 0d 43 4f 4e 53 54 |HORTINT;|...CONST|
|00000a60| 0d 09 73 6d 42 72 65 61 | 6b 57 6f 72 64 2a 20 3d |..smBrea|kWord* =|
|00000a70| 20 30 3b 0d 09 73 6d 42 | 72 65 61 6b 43 68 61 72 | 0;..smB|reakChar|
|00000a80| 2a 20 3d 20 31 3b 0d 09 | 73 6d 42 72 65 61 6b 4f |* = 1;..|smBreakO|
|00000a90| 76 65 72 66 6c 6f 77 2a | 20 3d 20 32 3b 0d 0d 09 |verflow*| = 2;...|
|00000aa0| 0d 54 59 50 45 0d 09 46 | 6f 72 6d 61 74 43 6c 61 |.TYPE..F|ormatCla|
|00000ab0| 73 73 2a 20 3d 20 53 48 | 4f 52 54 49 4e 54 3b 0d |ss* = SH|ORTINT;.|
|00000ac0| 0d 0d 43 4f 4e 53 54 0d | 09 66 50 6f 73 69 74 69 |..CONST.|.fPositi|
|00000ad0| 76 65 2a 20 3d 20 30 3b | 0d 09 66 4e 65 67 61 74 |ve* = 0;|..fNegat|
|00000ae0| 69 76 65 2a 20 3d 20 31 | 3b 0d 09 66 5a 65 72 6f |ive* = 1|;..fZero|
|00000af0| 2a 20 3d 20 32 3b 0d 0d | 09 0d 54 59 50 45 0d 09 |* = 2;..|..TYPE..|
|00000b00| 46 6f 72 6d 61 74 52 65 | 73 75 6c 74 54 79 70 65 |FormatRe|sultType|
|00000b10| 2a 20 3d 20 53 48 4f 52 | 54 49 4e 54 3b 0d 0d 0d |* = SHOR|TINT;...|
|00000b20| 43 4f 4e 53 54 0d 09 66 | 46 6f 72 6d 61 74 4f 4b |CONST..f|FormatOK|
|00000b30| 2a 20 3d 20 30 3b 0d 09 | 66 42 65 73 74 47 75 65 |* = 0;..|fBestGue|
|00000b40| 73 73 2a 20 3d 20 31 3b | 0d 09 66 4f 75 74 4f 66 |ss* = 1;|..fOutOf|
|00000b50| 53 79 6e 63 68 2a 20 3d | 20 32 3b 0d 09 66 53 70 |Synch* =| 2;..fSp|
|00000b60| 75 72 69 6f 75 73 43 68 | 61 72 73 2a 20 3d 20 33 |uriousCh|ars* = 3|
|00000b70| 3b 0d 09 66 4d 69 73 73 | 69 6e 67 44 65 6c 69 6d |;..fMiss|ingDelim|
|00000b80| 69 74 65 72 2a 20 3d 20 | 34 3b 0d 09 66 45 78 74 |iter* = |4;..fExt|
|00000b90| 72 61 44 65 63 69 6d 61 | 6c 2a 20 3d 20 35 3b 0d |raDecima|l* = 5;.|
|00000ba0| 09 66 4d 69 73 73 69 6e | 67 4c 69 74 65 72 61 6c |.fMissin|gLiteral|
|00000bb0| 2a 20 3d 20 36 3b 0d 09 | 66 45 78 74 72 61 45 78 |* = 6;..|fExtraEx|
|00000bc0| 70 2a 20 3d 20 37 3b 0d | 09 66 46 6f 72 6d 61 74 |p* = 7;.|.fFormat|
|00000bd0| 4f 76 65 72 66 6c 6f 77 | 2a 20 3d 20 38 3b 0d 09 |Overflow|* = 8;..|
|00000be0| 66 46 6f 72 6d 53 74 72 | 49 73 4e 41 4e 2a 20 3d |fFormStr|IsNAN* =|
|00000bf0| 20 39 3b 0d 09 66 42 61 | 64 50 61 72 74 73 54 61 | 9;..fBa|dPartsTa|
|00000c00| 62 6c 65 2a 20 3d 20 31 | 30 3b 0d 09 66 45 78 74 |ble* = 1|0;..fExt|
|00000c10| 72 61 50 65 72 63 65 6e | 74 2a 20 3d 20 31 31 3b |raPercen|t* = 11;|
|00000c20| 0d 09 66 45 78 74 72 61 | 53 65 70 61 72 61 74 6f |..fExtra|Separato|
|00000c30| 72 2a 20 3d 20 31 32 3b | 0d 09 66 45 6d 70 74 79 |r* = 12;|..fEmpty|
|00000c40| 46 6f 72 6d 61 74 53 74 | 72 69 6e 67 2a 20 3d 20 |FormatSt|ring* = |
|00000c50| 31 33 3b 0d 0d 0d 54 59 | 50 45 0d 09 4e 75 6d 46 |13;...TY|PE..NumF|
|00000c60| 6f 72 6d 61 74 53 74 72 | 69 6e 67 2a 20 3d 20 52 |ormatStr|ing* = R|
|00000c70| 45 43 4f 52 44 0d 09 09 | 66 4c 65 6e 67 74 68 2a |ECORD...|fLength*|
|00000c80| 3a 20 43 48 41 52 3b 0d | 09 09 66 56 65 72 73 69 |: CHAR;.|..fVersi|
|00000c90| 6f 6e 2a 3a 20 43 48 41 | 52 3b 0d 09 09 64 61 74 |on*: CHA|R;...dat|
|00000ca0| 61 2a 3a 20 41 52 52 41 | 59 20 32 35 34 20 4f 46 |a*: ARRA|Y 254 OF|
|00000cb0| 20 43 48 41 52 3b 09 09 | 09 28 2a 20 70 72 69 76 | CHAR;..|.(* priv|
|00000cc0| 61 74 65 20 64 61 74 61 | 20 2a 29 0d 09 45 4e 44 |ate data| *)..END|
|00000cd0| 3b 0d 09 4e 75 6d 46 6f | 72 6d 61 74 53 74 72 69 |;..NumFo|rmatStri|
|00000ce0| 6e 67 52 65 63 2a 20 3d | 20 4e 75 6d 46 6f 72 6d |ngRec* =| NumForm|
|00000cf0| 61 74 53 74 72 69 6e 67 | 3b 0d 0d 09 46 56 65 63 |atString|;...FVec|
|00000d00| 74 6f 72 2a 20 3d 20 52 | 45 43 4f 52 44 0d 09 09 |tor* = R|ECORD...|
|00000d10| 73 74 61 72 74 2a 3a 20 | 49 4e 54 45 47 45 52 3b |start*: |INTEGER;|
|00000d20| 0d 09 09 6c 65 6e 67 74 | 68 2a 3a 20 49 4e 54 45 |...lengt|h*: INTE|
|00000d30| 47 45 52 3b 0d 09 45 4e | 44 3b 0d 28 2a 20 69 6e |GER;..EN|D;.(* in|
|00000d40| 64 65 78 20 62 79 20 5b | 66 50 6f 73 69 74 69 76 |dex by [|fPositiv|
|00000d50| 65 2e 2e 66 5a 65 72 6f | 5d 20 2a 29 0d 09 54 72 |e..fZero|] *)..Tr|
|00000d60| 69 70 6c 65 49 6e 74 2a | 20 3d 20 41 52 52 41 59 |ipleInt*| = ARRAY|
|00000d70| 20 33 20 4f 46 20 46 56 | 65 63 74 6f 72 3b 0d 0d | 3 OF FV|ector;..|
|00000d80| 09 53 63 72 69 70 74 52 | 75 6e 53 74 61 74 75 73 |.ScriptR|unStatus|
|00000d90| 2a 20 3d 20 52 45 43 4f | 52 44 0d 09 09 73 63 72 |* = RECO|RD...scr|
|00000da0| 69 70 74 2a 3a 20 53 48 | 4f 52 54 49 4e 54 3b 0d |ipt*: SH|ORTINT;.|
|00000db0| 09 09 72 75 6e 56 61 72 | 69 61 6e 74 2a 3a 20 53 |..runVar|iant*: S|
|00000dc0| 48 4f 52 54 49 4e 54 3b | 0d 09 45 4e 44 3b 0d 28 |HORTINT;|..END;.(|
|00000dd0| 2a 20 4e 65 77 20 74 79 | 70 65 73 20 66 6f 72 20 |* New ty|pes for |
|00000de0| 53 79 73 74 65 6d 20 37 | 2e 30 3a 20 2a 29 0d 28 |System 7|.0: *).(|
|00000df0| 2a 20 54 79 70 65 20 66 | 6f 72 20 74 72 75 6e 63 |* Type f|or trunc|
|00000e00| 57 68 65 72 65 20 70 61 | 72 61 6d 65 74 65 72 20 |Where pa|rameter |
|00000e10| 69 6e 20 6e 65 77 20 54 | 72 75 6e 63 53 74 72 69 |in new T|runcStri|
|00000e20| 6e 67 2c 20 54 72 75 6e | 63 54 65 78 74 20 2a 29 |ng, Trun|cText *)|
|00000e30| 0d 09 54 72 75 6e 63 43 | 6f 64 65 2a 20 3d 20 49 |..TruncC|ode* = I|
|00000e40| 4e 54 45 47 45 52 3b 0d | 0d 0d 43 4f 4e 53 54 0d |NTEGER;.|..CONST.|
|00000e50| 09 73 68 6f 72 74 44 61 | 74 65 2a 20 3d 20 30 3b |.shortDa|te* = 0;|
|00000e60| 0d 09 6c 6f 6e 67 44 61 | 74 65 2a 20 3d 20 31 3b |..longDa|te* = 1;|
|00000e70| 0d 09 61 62 62 72 65 76 | 44 61 74 65 2a 20 3d 20 |..abbrev|Date* = |
|00000e80| 32 3b 0d 0d 09 0d 54 59 | 50 45 0d 09 44 61 74 65 |2;....TY|PE..Date|
|00000e90| 46 6f 72 6d 2a 20 3d 20 | 53 48 4f 52 54 49 4e 54 |Form* = |SHORTINT|
|00000ea0| 3b 0d 0d 0d 43 4f 4e 53 | 54 0d 28 2a 20 53 74 72 |;...CONS|T.(* Str|
|00000eb0| 69 6e 67 54 6f 44 61 74 | 65 20 73 74 61 74 75 73 |ingToDat|e status|
|00000ec0| 20 76 61 6c 75 65 73 20 | 2a 29 0d 09 66 61 74 61 | values |*)..fata|
|00000ed0| 6c 44 61 74 65 54 69 6d | 65 2a 20 3d 20 30 38 30 |lDateTim|e* = 080|
|00000ee0| 30 30 48 3b 09 28 2a 20 | 53 74 72 69 6e 67 54 6f |00H;.(* |StringTo|
|00000ef0| 44 61 74 65 20 61 6e 64 | 20 53 74 72 69 6e 67 32 |Date and| String2|
|00000f00| 54 69 6d 65 20 6d 61 73 | 6b 20 74 6f 20 61 20 66 |Time mas|k to a f|
|00000f10| 61 74 61 6c 20 65 72 72 | 6f 72 20 2a 29 0d 09 6c |atal err|or *)..l|
|00000f20| 6f 6e 67 44 61 74 65 46 | 6f 75 6e 64 2a 20 3d 20 |ongDateF|ound* = |
|00000f30| 31 3b 09 28 2a 20 53 74 | 72 69 6e 67 54 6f 44 61 |1;.(* St|ringToDa|
|00000f40| 74 65 20 6d 61 73 6b 20 | 74 6f 20 6c 6f 6e 67 20 |te mask |to long |
|00000f50| 64 61 74 65 20 66 6f 75 | 6e 64 20 2a 29 0d 09 6c |date fou|nd *)..l|
|00000f60| 65 66 74 4f 76 65 72 43 | 68 61 72 73 2a 20 3d 20 |eftOverC|hars* = |
|00000f70| 32 3b 09 28 2a 20 53 74 | 72 69 6e 67 54 6f 44 61 |2;.(* St|ringToDa|
|00000f80| 74 65 20 26 20 54 69 6d | 65 20 6d 61 73 6b 20 74 |te & Tim|e mask t|
|00000f90| 6f 20 77 61 72 6e 20 6f | 66 20 6c 65 66 74 20 6f |o warn o|f left o|
|00000fa0| 76 65 72 20 63 68 61 72 | 61 63 74 65 72 73 20 2a |ver char|acters *|
|00000fb0| 29 0d 09 73 65 70 4e 6f | 74 49 6e 74 6c 53 65 70 |)..sepNo|tIntlSep|
|00000fc0| 2a 20 3d 20 34 3b 09 28 | 2a 20 53 74 72 69 6e 67 |* = 4;.(|* String|
|00000fd0| 54 6f 44 61 74 65 20 26 | 20 54 69 6d 65 20 6d 61 |ToDate &| Time ma|
|00000fe0| 73 6b 20 74 6f 20 77 61 | 72 6e 20 6f 66 20 6e 6f |sk to wa|rn of no|
|00000ff0| 6e 2d 73 74 61 6e 64 61 | 72 64 20 73 65 70 61 72 |n-standa|rd separ|
|00001000| 61 74 6f 72 73 20 2a 29 | 0d 09 66 69 65 6c 64 4f |ators *)|..fieldO|
|00001010| 72 64 65 72 4e 6f 74 49 | 6e 74 6c 2a 20 3d 20 38 |rderNotI|ntl* = 8|
|00001020| 3b 09 28 2a 20 53 74 72 | 69 6e 67 54 6f 44 61 74 |;.(* Str|ingToDat|
|00001030| 65 20 26 20 54 69 6d 65 | 20 6d 61 73 6b 20 74 6f |e & Time| mask to|
|00001040| 20 77 61 72 6e 20 6f 66 | 20 6e 6f 6e 2d 73 74 61 | warn of| non-sta|
|00001050| 6e 64 61 72 64 20 66 69 | 65 6c 64 20 6f 72 64 65 |ndard fi|eld orde|
|00001060| 72 20 2a 29 0d 09 65 78 | 74 72 61 6e 65 6f 75 73 |r *)..ex|traneous|
|00001070| 53 74 72 69 6e 67 73 2a | 20 3d 20 31 36 3b 09 28 |Strings*| = 16;.(|
|00001080| 2a 20 53 74 72 69 6e 67 | 54 6f 44 61 74 65 20 26 |* String|ToDate &|
|00001090| 20 54 69 6d 65 20 6d 61 | 73 6b 20 74 6f 20 77 61 | Time ma|sk to wa|
|000010a0| 72 6e 20 6f 66 20 75 6e | 70 61 72 73 61 62 6c 65 |rn of un|parsable|
|000010b0| 20 73 74 72 69 6e 67 73 | 20 69 6e 20 74 65 78 74 | strings| in text|
|000010c0| 20 2a 29 0d 09 74 6f 6f | 4d 61 6e 79 53 65 70 73 | *)..too|ManySeps|
|000010d0| 2a 20 3d 20 33 32 3b 09 | 28 2a 20 53 74 72 69 6e |* = 32;.|(* Strin|
|000010e0| 67 54 6f 44 61 74 65 20 | 26 20 54 69 6d 65 20 6d |gToDate |& Time m|
|000010f0| 61 73 6b 20 74 6f 20 77 | 61 72 6e 20 6f 66 20 74 |ask to w|arn of t|
|00001100| 6f 6f 20 6d 61 6e 79 20 | 73 65 70 61 72 61 74 6f |oo many |separato|
|00001110| 72 73 20 2a 29 0d 09 73 | 65 70 4e 6f 74 43 6f 6e |rs *)..s|epNotCon|
|00001120| 73 69 73 74 65 6e 74 2a | 20 3d 20 36 34 3b 09 28 |sistent*| = 64;.(|
|00001130| 2a 20 53 74 72 69 6e 67 | 54 6f 44 61 74 65 20 26 |* String|ToDate &|
|00001140| 20 54 69 6d 65 20 6d 61 | 73 6b 20 74 6f 20 77 61 | Time ma|sk to wa|
|00001150| 72 6e 20 6f 66 20 69 6e | 63 6f 6e 73 69 73 74 65 |rn of in|consiste|
|00001160| 6e 74 20 73 65 70 61 72 | 61 74 6f 72 73 20 2a 29 |nt separ|ators *)|
|00001170| 0d 09 74 6f 6b 65 6e 45 | 72 72 2a 20 3d 20 30 38 |..tokenE|rr* = 08|
|00001180| 31 30 30 48 3b 09 28 2a | 20 53 74 72 69 6e 67 54 |100H;.(*| StringT|
|00001190| 6f 44 61 74 65 20 26 20 | 54 69 6d 65 20 6d 61 73 |oDate & |Time mas|
|000011a0| 6b 20 66 6f 72 20 27 74 | 6f 6b 65 6e 69 7a 65 72 |k for 't|okenizer|
|000011b0| 20 65 72 72 20 65 6e 63 | 6f 75 6e 74 65 72 65 64 | err enc|ountered|
|000011c0| 27 20 2a 29 0d 09 63 61 | 6e 74 52 65 61 64 55 74 |' *)..ca|ntReadUt|
|000011d0| 69 6c 69 74 69 65 73 2a | 20 3d 20 30 38 32 30 30 |ilities*| = 08200|
|000011e0| 48 3b 0d 09 64 61 74 65 | 54 69 6d 65 4e 6f 74 46 |H;..date|TimeNotF|
|000011f0| 6f 75 6e 64 2a 20 3d 20 | 30 38 34 30 30 48 3b 0d |ound* = |08400H;.|
|00001200| 09 64 61 74 65 54 69 6d | 65 49 6e 76 61 6c 69 64 |.dateTim|eInvalid|
|00001210| 2a 20 3d 20 30 38 38 30 | 30 48 3b 0d 0d 09 0d 54 |* = 0880|0H;....T|
|00001220| 59 50 45 0d 09 53 74 72 | 69 6e 67 54 6f 44 61 74 |YPE..Str|ingToDat|
|00001230| 65 53 74 61 74 75 73 2a | 20 3d 20 49 4e 54 45 47 |eStatus*| = INTEG|
|00001240| 45 52 3b 0d 0d 09 53 74 | 72 69 6e 67 32 44 61 74 |ER;...St|ring2Dat|
|00001250| 65 53 74 61 74 75 73 2a | 20 3d 20 49 4e 54 45 47 |eStatus*| = INTEG|
|00001260| 45 52 3b 0d 0d 09 44 61 | 74 65 43 61 63 68 65 52 |ER;...Da|teCacheR|
|00001270| 65 63 6f 72 64 2a 20 3d | 20 52 45 43 4f 52 44 0d |ecord* =| RECORD.|
|00001280| 09 09 68 69 64 64 65 6e | 2a 3a 20 41 52 52 41 59 |..hidden|*: ARRAY|
|00001290| 20 32 35 36 20 4f 46 20 | 49 4e 54 45 47 45 52 3b | 256 OF |INTEGER;|
|000012a0| 09 09 09 09 28 2a 20 6f | 6e 6c 79 20 66 6f 72 20 |....(* o|nly for |
|000012b0| 74 65 6d 70 6f 72 61 72 | 79 20 75 73 65 20 2a 29 |temporar|y use *)|
|000012c0| 0d 09 45 4e 44 3b 0d 09 | 44 61 74 65 43 61 63 68 |..END;..|DateCach|
|000012d0| 65 50 74 72 2a 20 3d 20 | 50 4f 49 4e 54 45 52 20 |ePtr* = |POINTER |
|000012e0| 54 4f 20 44 61 74 65 43 | 61 63 68 65 52 65 63 6f |TO DateC|acheReco|
|000012f0| 72 64 3b 0d 0d 09 42 72 | 65 61 6b 54 61 62 6c 65 |rd;...Br|eakTable|
|00001300| 2a 20 3d 20 52 45 43 4f | 52 44 0d 09 09 63 68 61 |* = RECO|RD...cha|
|00001310| 72 54 79 70 65 73 2a 3a | 20 41 52 52 41 59 20 32 |rTypes*:| ARRAY 2|
|00001320| 35 36 20 4f 46 20 43 48 | 41 52 3b 0d 09 09 74 72 |56 OF CH|AR;...tr|
|00001330| 69 70 6c 65 4c 65 6e 67 | 74 68 2a 3a 20 49 4e 54 |ipleLeng|th*: INT|
|00001340| 45 47 45 52 3b 0d 09 09 | 74 72 69 70 6c 65 73 2a |EGER;...|triples*|
|00001350| 3a 20 41 52 52 41 59 20 | 31 30 30 30 30 20 4f 46 |: ARRAY |10000 OF|
|00001360| 20 49 4e 54 45 47 45 52 | 3b 0d 09 45 4e 44 3b 0d | INTEGER|;..END;.|
|00001370| 09 42 72 65 61 6b 54 61 | 62 6c 65 50 74 72 2a 20 |.BreakTa|blePtr* |
|00001380| 3d 20 50 4f 49 4e 54 45 | 52 20 54 4f 20 42 72 65 |= POINTE|R TO Bre|
|00001390| 61 6b 54 61 62 6c 65 3b | 0d 0d 28 2a 20 4e 65 77 |akTable;|..(* New|
|000013a0| 20 4e 42 72 65 61 6b 54 | 61 62 6c 65 20 66 6f 72 | NBreakT|able for|
|000013b0| 20 53 79 73 74 65 6d 20 | 37 2e 30 3a 20 2a 29 0d | System |7.0: *).|
|000013c0| 09 4e 42 72 65 61 6b 54 | 61 62 6c 65 2a 20 3d 20 |.NBreakT|able* = |
|000013d0| 52 45 43 4f 52 44 0d 09 | 09 66 6c 61 67 73 31 2a |RECORD..|.flags1*|
|000013e0| 3a 20 53 48 4f 52 54 49 | 4e 54 3b 0d 09 09 66 6c |: SHORTI|NT;...fl|
|000013f0| 61 67 73 32 2a 3a 20 53 | 48 4f 52 54 49 4e 54 3b |ags2*: S|HORTINT;|
|00001400| 0d 09 09 76 65 72 73 69 | 6f 6e 2a 3a 20 49 4e 54 |...versi|on*: INT|
|00001410| 45 47 45 52 3b 0d 09 09 | 63 6c 61 73 73 54 61 62 |EGER;...|classTab|
|00001420| 6c 65 4f 66 66 2a 3a 20 | 49 4e 54 45 47 45 52 3b |leOff*: |INTEGER;|
|00001430| 0d 09 09 61 75 78 43 54 | 61 62 6c 65 4f 66 66 2a |...auxCT|ableOff*|
|00001440| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 09 09 62 61 63 |: INTEGE|R;...bac|
|00001450| 6b 77 64 54 61 62 6c 65 | 4f 66 66 2a 3a 20 49 4e |kwdTable|Off*: IN|
|00001460| 54 45 47 45 52 3b 0d 09 | 09 66 6f 72 77 64 54 61 |TEGER;..|.forwdTa|
|00001470| 62 6c 65 4f 66 66 2a 3a | 20 49 4e 54 45 47 45 52 |bleOff*:| INTEGER|
|00001480| 3b 0d 09 09 64 6f 42 61 | 63 6b 75 70 2a 3a 20 49 |;...doBa|ckup*: I|
|00001490| 4e 54 45 47 45 52 3b 0d | 09 09 6c 65 6e 67 74 68 |NTEGER;.|..length|
|000014a0| 3a 09 20 49 4e 54 45 47 | 45 52 3b 09 09 28 2a 20 |:. INTEG|ER;..(* |
|000014b0| 6c 65 6e 67 74 68 20 6f | 66 20 4e 42 72 65 61 6b |length o|f NBreak|
|000014c0| 54 61 62 6c 65 20 2a 29 | 0d 09 09 63 68 61 72 54 |Table *)|...charT|
|000014d0| 79 70 65 73 2a 3a 20 41 | 52 52 41 59 20 32 35 36 |ypes*: A|RRAY 256|
|000014e0| 20 4f 46 20 43 48 41 52 | 3b 0d 09 09 74 61 62 6c | OF CHAR|;...tabl|
|000014f0| 65 73 2a 3a 20 41 52 52 | 41 59 20 31 30 30 30 30 |es*: ARR|AY 10000|
|00001500| 20 4f 46 20 49 4e 54 45 | 47 45 52 3b 0d 09 45 4e | OF INTE|GER;..EN|
|00001510| 44 3b 0d 09 4e 42 72 65 | 61 6b 54 61 62 6c 65 50 |D;..NBre|akTableP|
|00001520| 74 72 2a 20 3d 20 50 4f | 49 4e 54 45 52 20 54 4f |tr* = PO|INTER TO|
|00001530| 20 4e 42 72 65 61 6b 54 | 61 62 6c 65 3b 0d 09 0d | NBreakT|able;...|
|00001540| 54 59 50 45 20 28 2a 20 | 66 72 6f 6d 20 53 63 72 |TYPE (* |from Scr|
|00001550| 69 70 74 4d 67 72 20 2a | 29 0d 09 53 63 72 69 70 |iptMgr *|)..Scrip|
|00001560| 74 43 6f 64 65 2a 20 3d | 20 49 4e 54 45 47 45 52 |tCode* =| INTEGER|
|00001570| 3b 0d 09 4c 61 6e 67 43 | 6f 64 65 2a 20 3d 20 49 |;..LangC|ode* = I|
|00001580| 4e 54 45 47 45 52 3b 0d | 0d 28 2a 0d 09 54 68 65 |NTEGER;.|.(*..The|
|00001590| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 66 75 6e 63 74 | followi|ng funct|
|000015a0| 69 6f 6e 73 20 61 72 65 | 20 6e 65 77 20 6e 61 6d |ions are| new nam|
|000015b0| 65 73 20 74 68 61 74 20 | 77 6f 72 6b 20 6f 6e 20 |es that |work on |
|000015c0| 36 38 6b 20 61 6e 64 20 | 50 6f 77 65 72 50 43 0d |68k and |PowerPC.|
|000015d0| 2a 29 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 43 |*)..PROC|EDURE [C|
|000015e0| 4f 44 45 5d 20 49 6e 69 | 74 44 61 74 65 43 61 63 |ODE] Ini|tDateCac|
|000015f0| 68 65 2a 28 74 68 65 43 | 61 63 68 65 3a 20 44 61 |he*(theC|ache: Da|
|00001600| 74 65 43 61 63 68 65 50 | 74 72 29 3a 20 4d 61 63 |teCacheP|tr): Mac|
|00001610| 54 79 70 65 73 2e 4f 53 | 45 72 72 0d 09 20 30 32 |Types.OS|Err.. 02|
|00001620| 46 48 2c 20 30 33 43 48 | 2c 20 30 38 32 48 2c 20 |FH, 03CH|, 082H, |
|00001630| 30 30 34 48 2c 20 30 46 | 46 48 2c 20 30 46 38 48 |004H, 0F|FH, 0F8H|
|00001640| 2c 20 30 41 38 48 2c 20 | 30 42 35 48 3b 0d 0d 50 |, 0A8H, |0B5H;..P|
|00001650| 52 4f 43 45 44 55 52 45 | 20 5b 43 4f 44 45 5d 20 |ROCEDURE| [CODE] |
|00001660| 4d 75 6e 67 65 72 2a 28 | 68 3a 20 4d 61 63 54 79 |Munger*(|h: MacTy|
|00001670| 70 65 73 2e 48 61 6e 64 | 6c 65 3b 20 6f 66 66 73 |pes.Hand|le; offs|
|00001680| 65 74 3a 20 4c 4f 4e 47 | 49 4e 54 3b 20 70 74 72 |et: LONG|INT; ptr|
|00001690| 31 3a 20 4d 61 63 54 79 | 70 65 73 2e 50 74 72 3b |1: MacTy|pes.Ptr;|
|000016a0| 20 6c 65 6e 31 3a 20 4c | 4f 4e 47 49 4e 54 3b 20 | len1: L|ONGINT; |
|000016b0| 70 74 72 32 3a 20 4d 61 | 63 54 79 70 65 73 2e 50 |ptr2: Ma|cTypes.P|
|000016c0| 74 72 3b 20 6c 65 6e 32 | 3a 20 4c 4f 4e 47 49 4e |tr; len2|: LONGIN|
|000016d0| 54 29 3a 20 4c 4f 4e 47 | 49 4e 54 0d 09 20 30 41 |T): LONG|INT.. 0A|
|000016e0| 39 48 2c 20 30 45 30 48 | 3b 0d 0d 50 52 4f 43 45 |9H, 0E0H|;..PROCE|
|000016f0| 44 55 52 45 20 5b 43 4f | 44 45 5d 20 4e 65 77 53 |DURE [CO|DE] NewS|
|00001700| 74 72 69 6e 67 2a 28 74 | 68 65 53 74 72 69 6e 67 |tring*(t|heString|
|00001710| 3a 20 4d 61 63 54 79 70 | 65 73 2e 53 74 72 32 35 |: MacTyp|es.Str25|
|00001720| 35 29 3a 20 4d 61 63 54 | 79 70 65 73 2e 53 74 72 |5): MacT|ypes.Str|
|00001730| 69 6e 67 48 61 6e 64 6c | 65 0d 09 20 30 41 39 48 |ingHandl|e.. 0A9H|
|00001740| 2c 20 30 30 36 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 006H;.|.PROCEDU|
|00001750| 52 45 20 5b 43 4f 44 45 | 5d 20 53 65 74 53 74 72 |RE [CODE|] SetStr|
|00001760| 69 6e 67 2a 28 74 68 65 | 53 74 72 69 6e 67 3a 20 |ing*(the|String: |
|00001770| 4d 61 63 54 79 70 65 73 | 2e 53 74 72 69 6e 67 48 |MacTypes|.StringH|
|00001780| 61 6e 64 6c 65 3b 20 73 | 74 72 4e 65 77 3a 20 4d |andle; s|trNew: M|
|00001790| 61 63 54 79 70 65 73 2e | 53 74 72 32 35 35 29 0d |acTypes.|Str255).|
|000017a0| 09 20 30 41 39 48 2c 20 | 30 30 37 48 3b 0d 0d 50 |. 0A9H, |007H;..P|
|000017b0| 52 4f 43 45 44 55 52 45 | 20 5b 43 4f 44 45 5d 20 |ROCEDURE| [CODE] |
|000017c0| 47 65 74 53 74 72 69 6e | 67 2a 28 73 74 72 69 6e |GetStrin|g*(strin|
|000017d0| 67 49 44 3a 20 49 4e 54 | 45 47 45 52 29 3a 20 4d |gID: INT|EGER): M|
|000017e0| 61 63 54 79 70 65 73 2e | 53 74 72 69 6e 67 48 61 |acTypes.|StringHa|
|000017f0| 6e 64 6c 65 0d 09 20 30 | 41 39 48 2c 20 30 42 41 |ndle.. 0|A9H, 0BA|
|00001800| 48 3b 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 43 |H;..PROC|EDURE [C|
|00001810| 4f 44 45 5d 20 53 63 72 | 69 70 74 4f 72 64 65 72 |ODE] Scr|iptOrder|
|00001820| 2a 28 73 63 72 69 70 74 | 31 3a 20 53 63 72 69 70 |*(script|1: Scrip|
|00001830| 74 43 6f 64 65 3b 20 73 | 63 72 69 70 74 32 3a 20 |tCode; s|cript2: |
|00001840| 53 63 72 69 70 74 43 6f | 64 65 29 3a 20 49 4e 54 |ScriptCo|de): INT|
|00001850| 45 47 45 52 0d 09 20 30 | 33 46 48 2c 20 30 33 43 |EGER.. 0|3FH, 03C|
|00001860| 48 2c 20 30 30 30 48 2c | 20 30 31 45 48 2c 20 30 |H, 000H,| 01EH, 0|
|00001870| 41 39 48 2c 20 30 45 44 | 48 3b 0d 0d 50 52 4f 43 |A9H, 0ED|H;..PROC|
|00001880| 45 44 55 52 45 20 5b 43 | 4f 44 45 5d 20 53 74 79 |EDURE [C|ODE] Sty|
|00001890| 6c 65 64 4c 69 6e 65 42 | 72 65 61 6b 2a 28 74 65 |ledLineB|reak*(te|
|000018a0| 78 74 50 74 72 3a 20 4d | 61 63 54 79 70 65 73 2e |xtPtr: M|acTypes.|
|000018b0| 50 74 72 3b 20 74 65 78 | 74 4c 65 6e 3a 20 4c 4f |Ptr; tex|tLen: LO|
|000018c0| 4e 47 49 4e 54 3b 20 74 | 65 78 74 53 74 61 72 74 |NGINT; t|extStart|
|000018d0| 3a 20 4c 4f 4e 47 49 4e | 54 3b 20 74 65 78 74 45 |: LONGIN|T; textE|
|000018e0| 6e 64 3a 20 4c 4f 4e 47 | 49 4e 54 3b 20 66 6c 61 |nd: LONG|INT; fla|
|000018f0| 67 73 3a 20 4c 4f 4e 47 | 49 4e 54 3b 20 56 41 52 |gs: LONG|INT; VAR|
|00001900| 20 74 65 78 74 57 69 64 | 74 68 3a 4d 61 63 54 79 | textWid|th:MacTy|
|00001910| 70 65 73 2e 46 69 78 65 | 64 3b 20 56 41 52 20 74 |pes.Fixe|d; VAR t|
|00001920| 65 78 74 4f 66 66 73 65 | 74 3a 20 4c 4f 4e 47 49 |extOffse|t: LONGI|
|00001930| 4e 54 29 3a 20 53 74 79 | 6c 65 64 4c 69 6e 65 42 |NT): Sty|ledLineB|
|00001940| 72 65 61 6b 43 6f 64 65 | 0d 09 20 30 32 46 48 2c |reakCode|.. 02FH,|
|00001950| 20 30 33 43 48 2c 20 30 | 38 32 48 2c 20 30 31 43 | 03CH, 0|82H, 01C|
|00001960| 48 2c 20 30 46 46 48 2c | 20 30 46 45 48 2c 20 30 |H, 0FFH,| 0FEH, 0|
|00001970| 41 38 48 2c 20 30 42 35 | 48 3b 0d 0d 50 52 4f 43 |A8H, 0B5|H;..PROC|
|00001980| 45 44 55 52 45 20 5b 43 | 4f 44 45 5d 20 54 72 75 |EDURE [C|ODE] Tru|
|00001990| 6e 63 53 74 72 69 6e 67 | 2a 28 77 69 64 74 68 3a |ncString|*(width:|
|000019a0| 20 49 4e 54 45 47 45 52 | 3b 20 56 41 52 20 74 68 | INTEGER|; VAR th|
|000019b0| 65 53 74 72 69 6e 67 3a | 20 4d 61 63 54 79 70 65 |eString:| MacType|
|000019c0| 73 2e 53 74 72 32 35 35 | 3b 20 74 72 75 6e 63 57 |s.Str255|; truncW|
|000019d0| 68 65 72 65 3a 20 54 72 | 75 6e 63 43 6f 64 65 29 |here: Tr|uncCode)|
|000019e0| 3a 20 49 4e 54 45 47 45 | 52 0d 09 20 30 32 46 48 |: INTEGE|R.. 02FH|
|000019f0| 2c 20 30 33 43 48 2c 20 | 30 38 32 48 2c 20 30 30 |, 03CH, |082H, 00|
|00001a00| 38 48 2c 20 30 46 46 48 | 2c 20 30 45 30 48 2c 20 |8H, 0FFH|, 0E0H, |
|00001a10| 30 41 38 48 2c 20 30 42 | 35 48 3b 0d 0d 50 52 4f |0A8H, 0B|5H;..PRO|
|00001a20| 43 45 44 55 52 45 20 5b | 43 4f 44 45 5d 20 54 72 |CEDURE [|CODE] Tr|
|00001a30| 75 6e 63 54 65 78 74 2a | 28 77 69 64 74 68 3a 20 |uncText*|(width: |
|00001a40| 49 4e 54 45 47 45 52 3b | 20 74 65 78 74 50 74 72 |INTEGER;| textPtr|
|00001a50| 3a 20 4d 61 63 54 79 70 | 65 73 2e 50 74 72 3b 20 |: MacTyp|es.Ptr; |
|00001a60| 56 41 52 20 6c 65 6e 67 | 74 68 3a 20 49 4e 54 45 |VAR leng|th: INTE|
|00001a70| 47 45 52 3b 20 74 72 75 | 6e 63 57 68 65 72 65 3a |GER; tru|ncWhere:|
|00001a80| 20 54 72 75 6e 63 43 6f | 64 65 29 3a 20 49 4e 54 | TruncCo|de): INT|
|00001a90| 45 47 45 52 0d 09 20 30 | 32 46 48 2c 20 30 33 43 |EGER.. 0|2FH, 03C|
|00001aa0| 48 2c 20 30 38 32 48 2c | 20 30 30 43 48 2c 20 30 |H, 082H,| 00CH, 0|
|00001ab0| 46 46 48 2c 20 30 44 45 | 48 2c 20 30 41 38 48 2c |FFH, 0DE|H, 0A8H,|
|00001ac0| 20 30 42 35 48 3b 0d 0d | 50 52 4f 43 45 44 55 52 | 0B5H;..|PROCEDUR|
|00001ad0| 45 20 5b 43 4f 44 45 5d | 20 52 65 70 6c 61 63 65 |E [CODE]| Replace|
|00001ae0| 54 65 78 74 2a 28 62 61 | 73 65 54 65 78 74 3a 20 |Text*(ba|seText: |
|00001af0| 4d 61 63 54 79 70 65 73 | 2e 48 61 6e 64 6c 65 3b |MacTypes|.Handle;|
|00001b00| 20 73 75 62 73 74 69 74 | 75 74 69 6f 6e 54 65 78 | substit|utionTex|
|00001b10| 74 3a 20 4d 61 63 54 79 | 70 65 73 2e 48 61 6e 64 |t: MacTy|pes.Hand|
|00001b20| 6c 65 3b 20 56 41 52 20 | 6b 65 79 3a 20 4d 61 63 |le; VAR |key: Mac|
|00001b30| 54 79 70 65 73 2e 53 74 | 72 31 35 29 3a 20 49 4e |Types.St|r15): IN|
|00001b40| 54 45 47 45 52 0d 09 20 | 30 32 46 48 2c 20 30 33 |TEGER.. |02FH, 03|
|00001b50| 43 48 2c 20 30 38 32 48 | 2c 20 30 30 43 48 2c 20 |CH, 082H|, 00CH, |
|00001b60| 30 46 46 48 2c 20 30 44 | 43 48 2c 20 30 41 38 48 |0FFH, 0D|CH, 0A8H|
|00001b70| 2c 20 30 42 35 48 3b 0d | 0d 28 2a 50 52 4f 43 45 |, 0B5H;.|.(*PROCE|
|00001b80| 44 55 52 45 20 5b 43 4f | 44 45 5d 20 46 69 6e 64 |DURE [CO|DE] Find|
|00001b90| 57 6f 72 64 42 72 65 61 | 6b 73 2a 28 74 65 78 74 |WordBrea|ks*(text|
|00001ba0| 50 74 72 3a 20 4d 61 63 | 54 79 70 65 73 2e 50 74 |Ptr: Mac|Types.Pt|
|00001bb0| 72 3b 20 74 65 78 74 4c | 65 6e 67 74 68 3a 20 49 |r; textL|ength: I|
|00001bc0| 4e 54 45 47 45 52 3b 20 | 6f 66 66 73 65 74 3a 20 |NTEGER; |offset: |
|00001bd0| 49 4e 54 45 47 45 52 3b | 20 6c 65 61 64 69 6e 67 |INTEGER;| leading|
|00001be0| 45 64 67 65 3a 20 42 4f | 4f 4c 45 41 4e 3b 20 62 |Edge: BO|OLEAN; b|
|00001bf0| 72 65 61 6b 73 3a 20 42 | 72 65 61 6b 54 61 62 6c |reaks: B|reakTabl|
|00001c00| 65 50 74 72 3b 20 56 41 | 52 20 6f 66 66 73 65 74 |ePtr; VA|R offset|
|00001c10| 73 3a 20 4f 66 66 73 65 | 74 54 61 62 6c 65 3b 20 |s: Offse|tTable; |
|00001c20| 73 63 72 69 70 74 3a 20 | 53 63 72 69 70 74 43 6f |script: |ScriptCo|
|00001c30| 64 65 29 0d 09 20 30 32 | 46 48 2c 20 30 33 43 48 |de).. 02|FH, 03CH|
|00001c40| 2c 20 30 43 30 48 2c 20 | 30 31 32 48 2c 20 30 30 |, 0C0H, |012H, 00|
|00001c50| 30 48 2c 20 30 31 41 48 | 2c 20 30 41 38 48 2c 20 |0H, 01AH|, 0A8H, |
|00001c60| 30 42 35 48 3b 2a 29 0d | 0d 50 52 4f 43 45 44 55 |0B5H;*).|.PROCEDU|
|00001c70| 52 45 20 5b 43 4f 44 45 | 5d 20 4c 6f 77 65 72 63 |RE [CODE|] Lowerc|
|00001c80| 61 73 65 54 65 78 74 2a | 28 74 65 78 74 50 74 72 |aseText*|(textPtr|
|00001c90| 3a 20 4d 61 63 54 79 70 | 65 73 2e 50 74 72 3b 20 |: MacTyp|es.Ptr; |
|00001ca0| 6c 65 6e 3a 20 49 4e 54 | 45 47 45 52 3b 20 73 63 |len: INT|EGER; sc|
|00001cb0| 72 69 70 74 3a 20 53 63 | 72 69 70 74 43 6f 64 65 |ript: Sc|riptCode|
|00001cc0| 29 0d 09 20 30 33 46 48 | 2c 20 30 33 43 48 2c 20 |).. 03FH|, 03CH, |
|00001cd0| 30 30 30 48 2c 20 30 30 | 30 48 2c 20 30 32 46 48 |000H, 00|0H, 02FH|
|00001ce0| 2c 20 30 33 43 48 2c 20 | 30 38 30 48 2c 20 30 30 |, 03CH, |080H, 00|
|00001cf0| 41 48 2c 20 30 46 46 48 | 2c 20 30 42 36 48 2c 20 |AH, 0FFH|, 0B6H, |
|00001d00| 30 41 38 48 2c 20 30 42 | 35 48 3b 0d 0d 50 52 4f |0A8H, 0B|5H;..PRO|
|00001d10| 43 45 44 55 52 45 20 5b | 43 4f 44 45 5d 20 55 70 |CEDURE [|CODE] Up|
|00001d20| 70 65 72 63 61 73 65 54 | 65 78 74 2a 28 74 65 78 |percaseT|ext*(tex|
|00001d30| 74 50 74 72 3a 20 4d 61 | 63 54 79 70 65 73 2e 50 |tPtr: Ma|cTypes.P|
|00001d40| 74 72 3b 20 6c 65 6e 3a | 20 49 4e 54 45 47 45 52 |tr; len:| INTEGER|
|00001d50| 3b 20 73 63 72 69 70 74 | 3a 20 53 63 72 69 70 74 |; script|: Script|
|00001d60| 43 6f 64 65 29 0d 09 20 | 30 33 46 48 2c 20 30 33 |Code).. |03FH, 03|
|00001d70| 43 48 2c 20 30 30 34 48 | 2c 20 30 30 30 48 2c 20 |CH, 004H|, 000H, |
|00001d80| 30 32 46 48 2c 20 30 33 | 43 48 2c 20 30 38 30 48 |02FH, 03|CH, 080H|
|00001d90| 2c 20 30 30 41 48 2c 20 | 30 46 46 48 2c 20 30 42 |, 00AH, |0FFH, 0B|
|00001da0| 36 48 2c 20 30 41 38 48 | 2c 20 30 42 35 48 3b 0d |6H, 0A8H|, 0B5H;.|
|00001db0| 0d 50 52 4f 43 45 44 55 | 52 45 20 5b 43 4f 44 45 |.PROCEDU|RE [CODE|
|00001dc0| 5d 20 53 74 72 69 70 44 | 69 61 63 72 69 74 69 63 |] StripD|iacritic|
|00001dd0| 73 2a 28 74 65 78 74 50 | 74 72 3a 20 4d 61 63 54 |s*(textP|tr: MacT|
|00001de0| 79 70 65 73 2e 50 74 72 | 3b 20 6c 65 6e 3a 20 49 |ypes.Ptr|; len: I|
|00001df0| 4e 54 45 47 45 52 3b 20 | 73 63 72 69 70 74 3a 20 |NTEGER; |script: |
|00001e00| 53 63 72 69 70 74 43 6f | 64 65 29 0d 09 20 30 33 |ScriptCo|de).. 03|
|00001e10| 46 48 2c 20 30 33 43 48 | 2c 20 30 30 32 48 2c 20 |FH, 03CH|, 002H, |
|00001e20| 30 30 30 48 2c 20 30 32 | 46 48 2c 20 30 33 43 48 |000H, 02|FH, 03CH|
|00001e30| 2c 20 30 38 30 48 2c 20 | 30 30 41 48 2c 20 30 46 |, 080H, |00AH, 0F|
|00001e40| 46 48 2c 20 30 42 36 48 | 2c 20 30 41 38 48 2c 20 |FH, 0B6H|, 0A8H, |
|00001e50| 30 42 35 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |0B5H;..P|ROCEDURE|
|00001e60| 20 5b 43 4f 44 45 5d 20 | 55 70 70 65 72 63 61 73 | [CODE] |Uppercas|
|00001e70| 65 53 74 72 69 70 44 69 | 61 63 72 69 74 69 63 73 |eStripDi|acritics|
|00001e80| 2a 28 74 65 78 74 50 74 | 72 3a 20 4d 61 63 54 79 |*(textPt|r: MacTy|
|00001e90| 70 65 73 2e 50 74 72 3b | 20 6c 65 6e 3a 20 49 4e |pes.Ptr;| len: IN|
|00001ea0| 54 45 47 45 52 3b 20 73 | 63 72 69 70 74 3a 20 53 |TEGER; s|cript: S|
|00001eb0| 63 72 69 70 74 43 6f 64 | 65 29 0d 09 20 30 33 46 |criptCod|e).. 03F|
|00001ec0| 48 2c 20 30 33 43 48 2c | 20 30 30 36 48 2c 20 30 |H, 03CH,| 006H, 0|
|00001ed0| 30 30 48 2c 20 30 32 46 | 48 2c 20 30 33 43 48 2c |00H, 02F|H, 03CH,|
|00001ee0| 20 30 38 30 48 2c 20 30 | 30 41 48 2c 20 30 46 46 | 080H, 0|0AH, 0FF|
|00001ef0| 48 2c 20 30 42 36 48 2c | 20 30 41 38 48 2c 20 30 |H, 0B6H,| 0A8H, 0|
|00001f00| 42 35 48 3b 0d 0d 28 2a | 50 52 4f 43 45 44 55 52 |B5H;..(*|PROCEDUR|
|00001f10| 45 20 5b 43 4f 44 45 5d | 20 46 69 6e 64 53 63 72 |E [CODE]| FindScr|
|00001f20| 69 70 74 52 75 6e 2a 28 | 74 65 78 74 50 74 72 3a |iptRun*(|textPtr:|
|00001f30| 20 4d 61 63 54 79 70 65 | 73 2e 50 74 72 3b 20 74 | MacType|s.Ptr; t|
|00001f40| 65 78 74 4c 65 6e 3a 20 | 4c 4f 4e 47 49 4e 54 3b |extLen: |LONGINT;|
|00001f50| 20 56 41 52 20 6c 65 6e | 55 73 65 64 3a 20 4c 4f | VAR len|Used: LO|
|00001f60| 4e 47 49 4e 54 29 3a 20 | 53 63 72 69 70 74 52 75 |NGINT): |ScriptRu|
|00001f70| 6e 53 74 61 74 75 73 0d | 09 20 30 32 46 48 2c 20 |nStatus.|. 02FH, |
|00001f80| 30 33 43 48 2c 20 30 38 | 32 48 2c 20 30 30 43 48 |03CH, 08|2H, 00CH|
|00001f90| 2c 20 30 30 30 48 2c 20 | 30 32 36 48 2c 20 30 41 |, 000H, |026H, 0A|
|00001fa0| 38 48 2c 20 30 42 35 48 | 3b 0d 0d 50 52 4f 43 45 |8H, 0B5H|;..PROCE|
|00001fb0| 44 55 52 45 20 5b 43 4f | 44 45 5d 20 53 74 72 69 |DURE [CO|DE] Stri|
|00001fc0| 6e 67 54 6f 44 61 74 65 | 2a 28 74 65 78 74 50 74 |ngToDate|*(textPt|
|00001fd0| 72 3a 20 4d 61 63 54 79 | 70 65 73 2e 50 74 72 3b |r: MacTy|pes.Ptr;|
|00001fe0| 20 74 65 78 74 4c 65 6e | 3a 20 4c 4f 4e 47 49 4e | textLen|: LONGIN|
|00001ff0| 54 3b 20 74 68 65 43 61 | 63 68 65 3a 20 44 61 74 |T; theCa|che: Dat|
|00002000| 65 43 61 63 68 65 50 74 | 72 3b 20 56 41 52 20 6c |eCachePt|r; VAR l|
|00002010| 65 6e 67 74 68 55 73 65 | 64 3a 20 4c 4f 4e 47 49 |engthUse|d: LONGI|
|00002020| 4e 54 3b 20 56 41 52 20 | 64 61 74 65 54 69 6d 65 |NT; VAR |dateTime|
|00002030| 3a 20 4c 6f 6e 67 44 61 | 74 65 52 65 63 29 3a 20 |: LongDa|teRec): |
|00002040| 53 74 72 69 6e 67 54 6f | 44 61 74 65 53 74 61 74 |StringTo|DateStat|
|00002050| 75 73 0d 09 20 30 32 46 | 48 2c 20 30 33 43 48 2c |us.. 02F|H, 03CH,|
|00002060| 20 30 38 32 48 2c 20 30 | 31 34 48 2c 20 30 46 46 | 082H, 0|14H, 0FF|
|00002070| 48 2c 20 30 46 36 48 2c | 20 30 41 38 48 2c 20 30 |H, 0F6H,| 0A8H, 0|
|00002080| 42 35 48 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |B5H;..PR|OCEDURE |
|00002090| 5b 43 4f 44 45 5d 20 53 | 74 72 69 6e 67 54 6f 54 |[CODE] S|tringToT|
|000020a0| 69 6d 65 2a 28 74 65 78 | 74 50 74 72 3a 20 4d 61 |ime*(tex|tPtr: Ma|
|000020b0| 63 54 79 70 65 73 2e 50 | 74 72 3b 20 74 65 78 74 |cTypes.P|tr; text|
|000020c0| 4c 65 6e 3a 20 4c 4f 4e | 47 49 4e 54 3b 20 74 68 |Len: LON|GINT; th|
|000020d0| 65 43 61 63 68 65 3a 20 | 44 61 74 65 43 61 63 68 |eCache: |DateCach|
|000020e0| 65 50 74 72 3b 20 56 41 | 52 20 6c 65 6e 67 74 68 |ePtr; VA|R length|
|000020f0| 55 73 65 64 3a 20 4c 4f | 4e 47 49 4e 54 3b 20 56 |Used: LO|NGINT; V|
|00002100| 41 52 20 64 61 74 65 54 | 69 6d 65 3a 20 4c 6f 6e |AR dateT|ime: Lon|
|00002110| 67 44 61 74 65 52 65 63 | 29 3a 20 53 74 72 69 6e |gDateRec|): Strin|
|00002120| 67 54 6f 44 61 74 65 53 | 74 61 74 75 73 0d 09 20 |gToDateS|tatus.. |
|00002130| 30 32 46 48 2c 20 30 33 | 43 48 2c 20 30 38 32 48 |02FH, 03|CH, 082H|
|00002140| 2c 20 30 31 34 48 2c 20 | 30 46 46 48 2c 20 30 46 |, 014H, |0FFH, 0F|
|00002150| 34 48 2c 20 30 41 38 48 | 2c 20 30 42 35 48 3b 0d |4H, 0A8H|, 0B5H;.|
|00002160| 0d 50 52 4f 43 45 44 55 | 52 45 20 5b 43 4f 44 45 |.PROCEDU|RE [CODE|
|00002170| 5d 20 45 78 74 65 6e 64 | 65 64 54 6f 53 74 72 69 |] Extend|edToStri|
|00002180| 6e 67 2a 28 56 41 52 20 | 78 3a 20 65 78 74 65 6e |ng*(VAR |x: exten|
|00002190| 64 65 64 38 30 3b 09 28 | 2a 43 4f 4e 53 54 2a 29 |ded80;.(|*CONST*)|
|000021a0| 56 41 52 20 6d 79 43 61 | 6e 6f 6e 69 63 61 6c 3a |VAR myCa|nonical:|
|000021b0| 20 4e 75 6d 46 6f 72 6d | 61 74 53 74 72 69 6e 67 | NumForm|atString|
|000021c0| 3b 09 28 2a 43 4f 4e 53 | 54 2a 29 56 41 52 20 70 |;.(*CONS|T*)VAR p|
|000021d0| 61 72 74 73 54 61 62 6c | 65 3a 20 4e 75 6d 62 65 |artsTabl|e: Numbe|
|000021e0| 72 50 61 72 74 73 3b 20 | 56 41 52 20 6f 75 74 53 |rParts; |VAR outS|
|000021f0| 74 72 69 6e 67 3a 20 4d | 61 63 54 79 70 65 73 2e |tring: M|acTypes.|
|00002200| 53 74 72 32 35 35 29 3a | 20 46 6f 72 6d 61 74 53 |Str255):| FormatS|
|00002210| 74 61 74 75 73 0d 09 20 | 30 32 46 33 43 48 2c 20 |tatus.. |02F3CH, |
|00002220| 30 38 32 48 2c 20 30 31 | 30 48 2c 20 30 46 46 48 |082H, 01|0H, 0FFH|
|00002230| 2c 20 30 45 38 48 2c 20 | 30 41 38 48 2c 20 30 42 |, 0E8H, |0A8H, 0B|
|00002240| 35 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |5H;..PRO|CEDURE [|
|00002250| 43 4f 44 45 5d 20 53 74 | 72 69 6e 67 54 6f 45 78 |CODE] St|ringToEx|
|00002260| 74 65 6e 64 65 64 2a 28 | 73 6f 75 72 63 65 3a 20 |tended*(|source: |
|00002270| 4d 61 63 54 79 70 65 73 | 2e 53 74 72 32 35 35 3b |MacTypes|.Str255;|
|00002280| 09 28 2a 43 4f 4e 53 54 | 2a 29 56 41 52 20 6d 79 |.(*CONST|*)VAR my|
|00002290| 43 61 6e 6f 6e 69 63 61 | 6c 3a 20 4e 75 6d 46 6f |Canonica|l: NumFo|
|000022a0| 72 6d 61 74 53 74 72 69 | 6e 67 3b 09 28 2a 43 4f |rmatStri|ng;.(*CO|
|000022b0| 4e 53 54 2a 29 56 41 52 | 20 70 61 72 74 73 54 61 |NST*)VAR| partsTa|
|000022c0| 62 6c 65 3a 20 4e 75 6d | 62 65 72 50 61 72 74 73 |ble: Num|berParts|
|000022d0| 3b 20 56 41 52 20 78 3a | 20 65 78 74 65 6e 64 65 |; VAR x:| extende|
|000022e0| 64 38 30 29 3a 20 46 6f | 72 6d 61 74 53 74 61 74 |d80): Fo|rmatStat|
|000022f0| 75 73 0d 09 20 30 32 48 | 2c 20 30 46 33 43 48 2c |us.. 02H|, 0F3CH,|
|00002300| 20 30 38 32 48 2c 20 30 | 31 30 48 2c 20 30 46 46 | 082H, 0|10H, 0FF|
|00002310| 48 2c 20 30 45 36 48 2c | 20 30 41 38 48 2c 20 30 |H, 0E6H,| 0A8H, 0|
|00002320| 42 35 48 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |B5H;..PR|OCEDURE |
|00002330| 5b 43 4f 44 45 5d 20 53 | 74 72 69 6e 67 54 6f 46 |[CODE] S|tringToF|
|00002340| 6f 72 6d 61 74 52 65 63 | 2a 28 69 6e 53 74 72 69 |ormatRec|*(inStri|
|00002350| 6e 67 3a 20 4d 61 63 54 | 79 70 65 73 2e 53 74 72 |ng: MacT|ypes.Str|
|00002360| 32 35 35 3b 09 28 2a 43 | 4f 4e 53 54 2a 29 56 41 |255;.(*C|ONST*)VA|
|00002370| 52 20 70 61 72 74 73 54 | 61 62 6c 65 3a 20 4e 75 |R partsT|able: Nu|
|00002380| 6d 62 65 72 50 61 72 74 | 73 3b 20 56 41 52 20 6f |mberPart|s; VAR o|
|00002390| 75 74 53 74 72 69 6e 67 | 3a 20 4e 75 6d 46 6f 72 |utString|: NumFor|
|000023a0| 6d 61 74 53 74 72 69 6e | 67 29 3a 20 46 6f 72 6d |matStrin|g): Form|
|000023b0| 61 74 53 74 61 74 75 73 | 0d 09 20 30 32 46 48 2c |atStatus|.. 02FH,|
|000023c0| 20 30 33 43 48 2c 20 30 | 38 32 48 2c 20 30 30 43 | 03CH, 0|82H, 00C|
|000023d0| 48 2c 20 30 46 46 48 2c | 20 30 45 43 48 2c 20 30 |H, 0FFH,| 0ECH, 0|
|000023e0| 41 38 48 2c 20 30 42 35 | 48 3b 0d 0d 50 52 4f 43 |A8H, 0B5|H;..PROC|
|000023f0| 45 44 55 52 45 20 5b 43 | 4f 44 45 5d 20 46 6f 72 |EDURE [C|ODE] For|
|00002400| 6d 61 74 52 65 63 54 6f | 53 74 72 69 6e 67 2a 28 |matRecTo|String*(|
|00002410| 28 2a 43 4f 4e 53 54 2a | 29 56 41 52 20 6d 79 43 |(*CONST*|)VAR myC|
|00002420| 61 6e 6f 6e 69 63 61 6c | 3a 20 4e 75 6d 46 6f 72 |anonical|: NumFor|
|00002430| 6d 61 74 53 74 72 69 6e | 67 3b 09 28 2a 43 4f 4e |matStrin|g;.(*CON|
|00002440| 53 54 2a 29 56 41 52 20 | 70 61 72 74 73 54 61 62 |ST*)VAR |partsTab|
|00002450| 6c 65 3a 20 4e 75 6d 62 | 65 72 50 61 72 74 73 3b |le: Numb|erParts;|
|00002460| 20 56 41 52 20 6f 75 74 | 53 74 72 69 6e 67 3a 20 | VAR out|String: |
|00002470| 4d 61 63 54 79 70 65 73 | 2e 53 74 72 32 35 35 3b |MacTypes|.Str255;|
|00002480| 20 56 41 52 20 70 6f 73 | 69 74 69 6f 6e 73 3a 20 | VAR pos|itions: |
|00002490| 54 72 69 70 6c 65 49 6e | 74 29 3a 20 46 6f 72 6d |TripleIn|t): Form|
|000024a0| 61 74 53 74 61 74 75 73 | 0d 09 20 30 32 46 48 2c |atStatus|.. 02FH,|
|000024b0| 20 30 33 43 48 2c 20 30 | 38 32 48 2c 20 30 31 30 | 03CH, 0|82H, 010|
|000024c0| 48 2c 20 30 46 46 48 2c | 20 30 45 41 48 2c 20 30 |H, 0FFH,| 0EAH, 0|
|000024d0| 41 38 48 2c 20 30 42 35 | 48 3b 2a 29 0d 0d 28 2a |A8H, 0B5|H;*)..(*|
|000024e0| 0d 09 54 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |..The fo|llowing |
|000024f0| 66 75 6e 63 74 69 6f 6e | 73 20 61 72 65 20 6f 6c |function|s are ol|
|00002500| 64 20 6e 61 6d 65 73 2c | 20 62 75 74 20 61 72 65 |d names,| but are|
|00002510| 20 72 65 71 75 69 72 65 | 64 20 66 6f 72 20 50 6f | require|d for Po|
|00002520| 77 65 72 50 43 20 62 75 | 69 6c 64 73 0d 09 62 65 |werPC bu|ilds..be|
|00002530| 63 75 61 73 65 20 49 6e | 74 65 72 66 61 63 65 4c |cuase In|terfaceL|
|00002540| 69 62 20 65 78 70 6f 72 | 74 73 20 74 68 65 73 65 |ib expor|ts these|
|00002550| 20 6e 61 6d 65 73 2c 20 | 69 6e 73 74 65 61 64 20 | names, |instead |
|00002560| 6f 66 20 74 68 65 20 6e | 65 77 20 6f 6e 65 73 2e |of the n|ew ones.|
|00002570| 0d 2a 29 0d 28 2a 50 52 | 4f 43 45 44 55 52 45 20 |.*).(*PR|OCEDURE |
|00002580| 5b 43 4f 44 45 5d 20 49 | 55 4d 61 67 53 74 72 69 |[CODE] I|UMagStri|
|00002590| 6e 67 2a 28 61 50 74 72 | 3a 20 4d 61 63 54 79 70 |ng*(aPtr|: MacTyp|
|000025a0| 65 73 2e 50 74 72 3b 20 | 62 50 74 72 3a 20 4d 61 |es.Ptr; |bPtr: Ma|
|000025b0| 63 54 79 70 65 73 2e 50 | 74 72 3b 20 61 4c 65 6e |cTypes.P|tr; aLen|
|000025c0| 3a 20 49 4e 54 45 47 45 | 52 3b 20 62 4c 65 6e 3a |: INTEGE|R; bLen:|
|000025d0| 20 49 4e 54 45 47 45 52 | 29 3a 20 49 4e 54 45 47 | INTEGER|): INTEG|
|000025e0| 45 52 0d 09 20 30 33 46 | 48 2c 20 30 33 43 48 2c |ER.. 03F|H, 03CH,|
|000025f0| 20 30 30 30 48 2c 20 30 | 30 41 48 2c 20 30 41 39 | 000H, 0|0AH, 0A9|
|00002600| 48 2c 20 30 45 44 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 0EDH;|..PROCED|
|00002610| 55 52 45 20 5b 43 4f 44 | 45 5d 20 49 55 4d 61 67 |URE [COD|E] IUMag|
|00002620| 49 44 53 74 72 69 6e 67 | 2a 28 61 50 74 72 3a 20 |IDString|*(aPtr: |
|00002630| 4d 61 63 54 79 70 65 73 | 2e 50 74 72 3b 20 62 50 |MacTypes|.Ptr; bP|
|00002640| 74 72 3a 20 4d 61 63 54 | 79 70 65 73 2e 50 74 72 |tr: MacT|ypes.Ptr|
|00002650| 3b 20 61 4c 65 6e 3a 20 | 49 4e 54 45 47 45 52 3b |; aLen: |INTEGER;|
|00002660| 20 62 4c 65 6e 3a 20 49 | 4e 54 45 47 45 52 29 3a | bLen: I|NTEGER):|
|00002670| 20 49 4e 54 45 47 45 52 | 0d 09 20 30 33 46 48 2c | INTEGER|.. 03FH,|
|00002680| 20 30 33 43 48 2c 20 30 | 30 30 48 2c 20 30 30 43 | 03CH, 0|00H, 00C|
|00002690| 48 2c 20 30 41 39 48 2c | 20 30 45 44 48 3b 0d 0d |H, 0A9H,| 0EDH;..|
|000026a0| 50 52 4f 43 45 44 55 52 | 45 20 5b 43 4f 44 45 5d |PROCEDUR|E [CODE]|
|000026b0| 20 49 55 4d 61 67 50 53 | 74 72 69 6e 67 2a 28 61 | IUMagPS|tring*(a|
|000026c0| 50 74 72 3a 20 4d 61 63 | 54 79 70 65 73 2e 50 74 |Ptr: Mac|Types.Pt|
|000026d0| 72 3b 20 62 50 74 72 3a | 20 4d 61 63 54 79 70 65 |r; bPtr:| MacType|
|000026e0| 73 2e 50 74 72 3b 20 61 | 4c 65 6e 3a 20 49 4e 54 |s.Ptr; a|Len: INT|
|000026f0| 45 47 45 52 3b 20 62 4c | 65 6e 3a 20 49 4e 54 45 |EGER; bL|en: INTE|
|00002700| 47 45 52 3b 20 69 74 6c | 32 48 61 6e 64 6c 65 3a |GER; itl|2Handle:|
|00002710| 20 4d 61 63 54 79 70 65 | 73 2e 48 61 6e 64 6c 65 | MacType|s.Handle|
|00002720| 29 3a 20 49 4e 54 45 47 | 45 52 0d 09 20 30 33 46 |): INTEG|ER.. 03F|
|00002730| 48 2c 20 30 33 43 48 2c | 20 30 30 30 48 2c 20 30 |H, 03CH,| 000H, 0|
|00002740| 31 41 48 2c 20 30 41 39 | 48 2c 20 30 45 44 48 3b |1AH, 0A9|H, 0EDH;|
|00002750| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 5b 43 4f 44 |..PROCED|URE [COD|
|00002760| 45 5d 20 49 55 4d 61 67 | 49 44 50 53 74 72 69 6e |E] IUMag|IDPStrin|
|00002770| 67 2a 28 61 50 74 72 3a | 20 4d 61 63 54 79 70 65 |g*(aPtr:| MacType|
|00002780| 73 2e 50 74 72 3b 20 62 | 50 74 72 3a 20 4d 61 63 |s.Ptr; b|Ptr: Mac|
|00002790| 54 79 70 65 73 2e 50 74 | 72 3b 20 61 4c 65 6e 3a |Types.Pt|r; aLen:|
|000027a0| 20 49 4e 54 45 47 45 52 | 3b 20 62 4c 65 6e 3a 20 | INTEGER|; bLen: |
|000027b0| 49 4e 54 45 47 45 52 3b | 20 69 74 6c 32 48 61 6e |INTEGER;| itl2Han|
|000027c0| 64 6c 65 3a 20 4d 61 63 | 54 79 70 65 73 2e 48 61 |dle: Mac|Types.Ha|
|000027d0| 6e 64 6c 65 29 3a 20 49 | 4e 54 45 47 45 52 0d 09 |ndle): I|NTEGER..|
|000027e0| 20 30 33 46 48 2c 20 30 | 33 43 48 2c 20 30 30 30 | 03FH, 0|3CH, 000|
|000027f0| 48 2c 20 30 31 43 48 2c | 20 30 41 39 48 2c 20 30 |H, 01CH,| 0A9H, 0|
|00002800| 45 44 48 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |EDH;..PR|OCEDURE |
|00002810| 5b 43 4f 44 45 5d 20 49 | 55 44 61 74 65 53 74 72 |[CODE] I|UDateStr|
|00002820| 69 6e 67 2a 28 64 61 74 | 65 54 69 6d 65 3a 20 4c |ing*(dat|eTime: L|
|00002830| 4f 4e 47 49 4e 54 3b 20 | 6c 6f 6e 67 46 6c 61 67 |ONGINT; |longFlag|
|00002840| 3a 20 42 79 74 65 50 61 | 72 61 6d 65 74 65 72 3b |: BytePa|rameter;|
|00002850| 20 56 41 52 20 72 65 73 | 75 6c 74 3a 20 4d 61 63 | VAR res|ult: Mac|
|00002860| 54 79 70 65 73 2e 53 74 | 72 32 35 35 29 0d 09 20 |Types.St|r255).. |
|00002870| 30 34 32 48 2c 20 30 36 | 37 48 2c 20 30 41 39 48 |042H, 06|7H, 0A9H|
|00002880| 2c 20 30 45 44 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 0EDH;.|.PROCEDU|
|00002890| 52 45 20 5b 43 4f 44 45 | 5d 20 49 55 54 69 6d 65 |RE [CODE|] IUTime|
|000028a0| 53 74 72 69 6e 67 2a 28 | 64 61 74 65 54 69 6d 65 |String*(|dateTime|
|000028b0| 3a 20 4c 4f 4e 47 49 4e | 54 3b 20 77 61 6e 74 53 |: LONGIN|T; wantS|
|000028c0| 65 63 6f 6e 64 73 3a 20 | 42 4f 4f 4c 45 41 4e 3b |econds: |BOOLEAN;|
|000028d0| 20 56 41 52 20 72 65 73 | 75 6c 74 3a 20 4d 61 63 | VAR res|ult: Mac|
|000028e0| 54 79 70 65 73 2e 53 74 | 72 32 35 35 29 0d 09 20 |Types.St|r255).. |
|000028f0| 30 33 46 48 2c 20 30 33 | 43 48 2c 20 30 30 30 48 |03FH, 03|CH, 000H|
|00002900| 2c 20 30 30 32 48 2c 20 | 30 41 39 48 2c 20 30 45 |, 002H, |0A9H, 0E|
|00002910| 44 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |DH;..PRO|CEDURE [|
|00002920| 43 4f 44 45 5d 20 49 55 | 44 61 74 65 50 53 74 72 |CODE] IU|DatePStr|
|00002930| 69 6e 67 2a 28 64 61 74 | 65 54 69 6d 65 3a 20 4c |ing*(dat|eTime: L|
|00002940| 4f 4e 47 49 4e 54 3b 20 | 6c 6f 6e 67 46 6c 61 67 |ONGINT; |longFlag|
|00002950| 3a 20 42 79 74 65 50 61 | 72 61 6d 65 74 65 72 3b |: BytePa|rameter;|
|00002960| 20 56 41 52 20 72 65 73 | 75 6c 74 3a 20 4d 61 63 | VAR res|ult: Mac|
|00002970| 54 79 70 65 73 2e 53 74 | 72 32 35 35 3b 20 69 6e |Types.St|r255; in|
|00002980| 74 6c 48 61 6e 64 6c 65 | 3a 20 4d 61 63 54 79 70 |tlHandle|: MacTyp|
|00002990| 65 73 2e 48 61 6e 64 6c | 65 29 0d 09 20 30 33 46 |es.Handl|e).. 03F|
|000029a0| 48 2c 20 30 33 43 48 2c | 20 30 30 30 48 2c 20 30 |H, 03CH,| 000H, 0|
|000029b0| 30 45 48 2c 20 30 41 39 | 48 2c 20 30 45 44 48 3b |0EH, 0A9|H, 0EDH;|
|000029c0| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 5b 43 4f 44 |..PROCED|URE [COD|
|000029d0| 45 5d 20 49 55 54 69 6d | 65 50 53 74 72 69 6e 67 |E] IUTim|ePString|
|000029e0| 2a 28 64 61 74 65 54 69 | 6d 65 3a 20 4c 4f 4e 47 |*(dateTi|me: LONG|
|000029f0| 49 4e 54 3b 20 77 61 6e | 74 53 65 63 6f 6e 64 73 |INT; wan|tSeconds|
|00002a00| 3a 20 42 4f 4f 4c 45 41 | 4e 3b 20 56 41 52 20 72 |: BOOLEA|N; VAR r|
|00002a10| 65 73 75 6c 74 3a 20 4d | 61 63 54 79 70 65 73 2e |esult: M|acTypes.|
|00002a20| 53 74 72 32 35 35 3b 20 | 69 6e 74 6c 48 61 6e 64 |Str255; |intlHand|
|00002a30| 6c 65 3a 20 4d 61 63 54 | 79 70 65 73 2e 48 61 6e |le: MacT|ypes.Han|
|00002a40| 64 6c 65 29 0d 09 20 30 | 33 46 48 2c 20 30 33 43 |dle).. 0|3FH, 03C|
|00002a50| 48 2c 20 30 30 30 48 2c | 20 30 31 30 48 2c 20 30 |H, 000H,| 010H, 0|
|00002a60| 41 39 48 2c 20 30 45 44 | 48 3b 0d 0d 50 52 4f 43 |A9H, 0ED|H;..PROC|
|00002a70| 45 44 55 52 45 20 5b 43 | 4f 44 45 5d 20 49 55 4c |EDURE [C|ODE] IUL|
|00002a80| 44 61 74 65 53 74 72 69 | 6e 67 2a 28 56 41 52 20 |DateStri|ng*(VAR |
|00002a90| 64 61 74 65 54 69 6d 65 | 3a 20 4c 6f 6e 67 44 61 |dateTime|: LongDa|
|00002aa0| 74 65 54 69 6d 65 3b 20 | 6c 6f 6e 67 46 6c 61 67 |teTime; |longFlag|
|00002ab0| 3a 20 42 79 74 65 50 61 | 72 61 6d 65 74 65 72 3b |: BytePa|rameter;|
|00002ac0| 20 56 41 52 20 72 65 73 | 75 6c 74 3a 20 4d 61 63 | VAR res|ult: Mac|
|00002ad0| 54 79 70 65 73 2e 53 74 | 72 32 35 35 3b 20 69 6e |Types.St|r255; in|
|00002ae0| 74 6c 48 61 6e 64 6c 65 | 3a 20 4d 61 63 54 79 70 |tlHandle|: MacTyp|
|00002af0| 65 73 2e 48 61 6e 64 6c | 65 29 0d 09 20 30 33 46 |es.Handl|e).. 03F|
|00002b00| 48 2c 20 30 33 43 48 2c | 20 30 30 30 48 2c 20 30 |H, 03CH,| 000H, 0|
|00002b10| 31 34 48 2c 20 30 41 39 | 48 2c 20 30 45 44 48 3b |14H, 0A9|H, 0EDH;|
|00002b20| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 5b 43 4f 44 |..PROCED|URE [COD|
|00002b30| 45 5d 20 49 55 4c 54 69 | 6d 65 53 74 72 69 6e 67 |E] IULTi|meString|
|00002b40| 2a 28 56 41 52 20 64 61 | 74 65 54 69 6d 65 3a 20 |*(VAR da|teTime: |
|00002b50| 4c 6f 6e 67 44 61 74 65 | 54 69 6d 65 3b 20 77 61 |LongDate|Time; wa|
|00002b60| 6e 74 53 65 63 6f 6e 64 | 73 3a 20 42 4f 4f 4c 45 |ntSecond|s: BOOLE|
|00002b70| 41 4e 3b 20 56 41 52 20 | 72 65 73 75 6c 74 3a 20 |AN; VAR |result: |
|00002b80| 4d 61 63 54 79 70 65 73 | 2e 53 74 72 32 35 35 3b |MacTypes|.Str255;|
|00002b90| 20 69 6e 74 6c 48 61 6e | 64 6c 65 3a 20 4d 61 63 | intlHan|dle: Mac|
|00002ba0| 54 79 70 65 73 2e 48 61 | 6e 64 6c 65 29 0d 09 20 |Types.Ha|ndle).. |
|00002bb0| 30 33 46 48 2c 20 30 33 | 43 48 2c 20 30 30 30 48 |03FH, 03|CH, 000H|
|00002bc0| 2c 20 30 31 36 48 2c 20 | 30 41 39 48 2c 20 30 45 |, 016H, |0A9H, 0E|
|00002bd0| 44 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |DH;..PRO|CEDURE [|
|00002be0| 43 4f 44 45 5d 20 49 55 | 53 63 72 69 70 74 4f 72 |CODE] IU|ScriptOr|
|00002bf0| 64 65 72 2a 28 73 63 72 | 69 70 74 31 3a 20 53 63 |der*(scr|ipt1: Sc|
|00002c00| 72 69 70 74 43 6f 64 65 | 3b 20 73 63 72 69 70 74 |riptCode|; script|
|00002c10| 32 3a 20 53 63 72 69 70 | 74 43 6f 64 65 29 3a 20 |2: Scrip|tCode): |
|00002c20| 49 4e 54 45 47 45 52 0d | 09 20 30 33 46 48 2c 20 |INTEGER.|. 03FH, |
|00002c30| 30 33 43 48 2c 20 30 30 | 30 48 2c 20 30 31 45 48 |03CH, 00|0H, 01EH|
|00002c40| 2c 20 30 41 39 48 2c 20 | 30 45 44 48 3b 0d 0d 50 |, 0A9H, |0EDH;..P|
|00002c50| 52 4f 43 45 44 55 52 45 | 20 5b 43 4f 44 45 5d 20 |ROCEDURE| [CODE] |
|00002c60| 49 55 4c 61 6e 67 4f 72 | 64 65 72 2a 28 6c 61 6e |IULangOr|der*(lan|
|00002c70| 67 75 61 67 65 31 3a 20 | 4c 61 6e 67 43 6f 64 65 |guage1: |LangCode|
|00002c80| 3b 20 6c 61 6e 67 75 61 | 67 65 32 3a 20 4c 61 6e |; langua|ge2: Lan|
|00002c90| 67 43 6f 64 65 29 3a 20 | 49 4e 54 45 47 45 52 0d |gCode): |INTEGER.|
|00002ca0| 09 20 30 33 46 48 2c 20 | 30 33 43 48 2c 20 30 30 |. 03FH, |03CH, 00|
|00002cb0| 30 48 2c 20 30 32 30 48 | 2c 20 30 41 39 48 2c 20 |0H, 020H|, 0A9H, |
|00002cc0| 30 45 44 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |0EDH;..P|ROCEDURE|
|00002cd0| 20 5b 43 4f 44 45 5d 20 | 49 55 54 65 78 74 4f 72 | [CODE] |IUTextOr|
|00002ce0| 64 65 72 2a 28 61 50 74 | 72 3a 20 4d 61 63 54 79 |der*(aPt|r: MacTy|
|00002cf0| 70 65 73 2e 50 74 72 3b | 20 62 50 74 72 3a 20 4d |pes.Ptr;| bPtr: M|
|00002d00| 61 63 54 79 70 65 73 2e | 50 74 72 3b 20 61 4c 65 |acTypes.|Ptr; aLe|
|00002d10| 6e 3a 20 49 4e 54 45 47 | 45 52 3b 20 62 4c 65 6e |n: INTEG|ER; bLen|
|00002d20| 3a 20 49 4e 54 45 47 45 | 52 3b 20 61 53 63 72 69 |: INTEGE|R; aScri|
|00002d30| 70 74 3a 20 53 63 72 69 | 70 74 43 6f 64 65 3b 20 |pt: Scri|ptCode; |
|00002d40| 62 53 63 72 69 70 74 3a | 20 53 63 72 69 70 74 43 |bScript:| ScriptC|
|00002d50| 6f 64 65 3b 20 61 4c 61 | 6e 67 3a 20 4c 61 6e 67 |ode; aLa|ng: Lang|
|00002d60| 43 6f 64 65 3b 20 62 4c | 61 6e 67 3a 20 4c 61 6e |Code; bL|ang: Lan|
|00002d70| 67 43 6f 64 65 29 3a 20 | 49 4e 54 45 47 45 52 0d |gCode): |INTEGER.|
|00002d80| 09 20 30 33 46 48 2c 20 | 30 33 43 48 2c 20 30 30 |. 03FH, |03CH, 00|
|00002d90| 30 48 2c 20 30 32 32 48 | 2c 20 30 41 39 48 2c 20 |0H, 022H|, 0A9H, |
|00002da0| 30 45 44 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |0EDH;..P|ROCEDURE|
|00002db0| 20 5b 43 4f 44 45 5d 20 | 46 69 6e 64 57 6f 72 64 | [CODE] |FindWord|
|00002dc0| 2a 28 74 65 78 74 50 74 | 72 3a 20 4d 61 63 54 79 |*(textPt|r: MacTy|
|00002dd0| 70 65 73 2e 50 74 72 3b | 20 74 65 78 74 4c 65 6e |pes.Ptr;| textLen|
|00002de0| 67 74 68 3a 20 49 4e 54 | 45 47 45 52 3b 20 6f 66 |gth: INT|EGER; of|
|00002df0| 66 73 65 74 3a 20 49 4e | 54 45 47 45 52 3b 20 6c |fset: IN|TEGER; l|
|00002e00| 65 61 64 69 6e 67 45 64 | 67 65 3a 20 42 4f 4f 4c |eadingEd|ge: BOOL|
|00002e10| 45 41 4e 3b 20 62 72 65 | 61 6b 73 3a 20 42 72 65 |EAN; bre|aks: Bre|
|00002e20| 61 6b 54 61 62 6c 65 50 | 74 72 3b 20 56 41 52 20 |akTableP|tr; VAR |
|00002e30| 6f 66 66 73 65 74 73 3a | 20 4f 66 66 73 65 74 54 |offsets:| OffsetT|
|00002e40| 61 62 6c 65 29 0d 09 20 | 30 32 46 48 2c 20 30 33 |able).. |02FH, 03|
|00002e50| 43 48 2c 20 30 38 30 48 | 2c 20 30 31 32 48 2c 20 |CH, 080H|, 012H, |
|00002e60| 30 30 30 48 2c 20 30 31 | 41 48 2c 20 30 41 38 48 |000H, 01|AH, 0A8H|
|00002e70| 2c 20 30 42 35 48 3b 0d | 0d 50 52 4f 43 45 44 55 |, 0B5H;.|.PROCEDU|
|00002e80| 52 45 20 5b 43 4f 44 45 | 5d 20 4e 46 69 6e 64 57 |RE [CODE|] NFindW|
|00002e90| 6f 72 64 2a 28 74 65 78 | 74 50 74 72 3a 20 4d 61 |ord*(tex|tPtr: Ma|
|00002ea0| 63 54 79 70 65 73 2e 50 | 74 72 3b 20 74 65 78 74 |cTypes.P|tr; text|
|00002eb0| 4c 65 6e 67 74 68 3a 20 | 49 4e 54 45 47 45 52 3b |Length: |INTEGER;|
|00002ec0| 20 6f 66 66 73 65 74 3a | 20 49 4e 54 45 47 45 52 | offset:| INTEGER|
|00002ed0| 3b 20 6c 65 61 64 69 6e | 67 45 64 67 65 3a 20 42 |; leadin|gEdge: B|
|00002ee0| 4f 4f 4c 45 41 4e 3b 20 | 6e 62 72 65 61 6b 73 3a |OOLEAN; |nbreaks:|
|00002ef0| 20 4e 42 72 65 61 6b 54 | 61 62 6c 65 50 74 72 3b | NBreakT|ablePtr;|
|00002f00| 20 56 41 52 20 6f 66 66 | 73 65 74 73 3a 20 4f 66 | VAR off|sets: Of|
|00002f10| 66 73 65 74 54 61 62 6c | 65 29 0d 09 20 30 32 46 |fsetTabl|e).. 02F|
|00002f20| 48 2c 20 30 33 43 48 2c | 20 30 38 30 48 2c 20 30 |H, 03CH,| 080H, 0|
|00002f30| 31 32 48 2c 20 30 46 46 | 48 2c 20 30 45 32 48 2c |12H, 0FF|H, 0E2H,|
|00002f40| 20 30 41 38 48 2c 20 30 | 42 35 48 3b 0d 0d 50 52 | 0A8H, 0|B5H;..PR|
|00002f50| 4f 43 45 44 55 52 45 20 | 5b 43 4f 44 45 5d 20 55 |OCEDURE |[CODE] U|
|00002f60| 70 72 54 65 78 74 2a 28 | 74 65 78 74 50 74 72 3a |prText*(|textPtr:|
|00002f70| 20 4d 61 63 54 79 70 65 | 73 2e 50 74 72 3b 20 6c | MacType|s.Ptr; l|
|00002f80| 65 6e 3a 20 49 4e 54 45 | 47 45 52 29 0d 09 20 30 |en: INTE|GER).. 0|
|00002f90| 33 30 48 2c 20 30 31 46 | 48 2c 20 30 32 30 48 2c |30H, 01F|H, 020H,|
|00002fa0| 20 30 35 46 48 2c 20 30 | 41 30 48 2c 20 30 35 34 | 05FH, 0|A0H, 054|
|00002fb0| 48 3b 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 43 |H;..PROC|EDURE [C|
|00002fc0| 4f 44 45 5d 20 4c 77 72 | 54 65 78 74 2a 28 74 65 |ODE] Lwr|Text*(te|
|00002fd0| 78 74 50 74 72 3a 20 4d | 61 63 54 79 70 65 73 2e |xtPtr: M|acTypes.|
|00002fe0| 50 74 72 3b 20 6c 65 6e | 3a 20 49 4e 54 45 47 45 |Ptr; len|: INTEGE|
|00002ff0| 52 29 0d 09 20 30 33 30 | 48 2c 20 30 31 46 48 2c |R).. 030|H, 01FH,|
|00003000| 20 30 32 30 48 2c 20 30 | 35 46 48 2c 20 30 41 30 | 020H, 0|5FH, 0A0|
|00003010| 48 2c 20 30 35 36 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 056H;|..PROCED|
|00003020| 55 52 45 20 5b 43 4f 44 | 45 5d 20 4c 6f 77 65 72 |URE [COD|E] Lower|
|00003030| 54 65 78 74 2a 28 74 65 | 78 74 50 74 72 3a 20 4d |Text*(te|xtPtr: M|
|00003040| 61 63 54 79 70 65 73 2e | 50 74 72 3b 20 6c 65 6e |acTypes.|Ptr; len|
|00003050| 3a 20 49 4e 54 45 47 45 | 52 29 0d 09 20 30 33 30 |: INTEGE|R).. 030|
|00003060| 48 2c 20 30 31 46 48 2c | 20 30 32 30 48 2c 20 30 |H, 01FH,| 020H, 0|
|00003070| 35 46 48 2c 20 30 41 30 | 48 2c 20 30 35 36 48 3b |5FH, 0A0|H, 056H;|
|00003080| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 5b 43 4f 44 |..PROCED|URE [COD|
|00003090| 45 5d 20 53 74 72 69 70 | 54 65 78 74 2a 28 74 65 |E] Strip|Text*(te|
|000030a0| 78 74 50 74 72 3a 20 4d | 61 63 54 79 70 65 73 2e |xtPtr: M|acTypes.|
|000030b0| 50 74 72 3b 20 6c 65 6e | 3a 20 49 4e 54 45 47 45 |Ptr; len|: INTEGE|
|000030c0| 52 29 0d 09 20 30 33 30 | 48 2c 20 30 31 46 48 2c |R).. 030|H, 01FH,|
|000030d0| 20 30 32 30 48 2c 20 30 | 35 46 48 2c 20 30 41 32 | 020H, 0|5FH, 0A2|
|000030e0| 48 2c 20 30 35 36 48 3b | 0d 0d 50 52 4f 43 45 44 |H, 056H;|..PROCED|
|000030f0| 55 52 45 20 5b 43 4f 44 | 45 5d 20 55 70 70 65 72 |URE [COD|E] Upper|
|00003100| 54 65 78 74 2a 28 74 65 | 78 74 50 74 72 3a 20 4d |Text*(te|xtPtr: M|
|00003110| 61 63 54 79 70 65 73 2e | 50 74 72 3b 20 6c 65 6e |acTypes.|Ptr; len|
|00003120| 3a 20 49 4e 54 45 47 45 | 52 29 0d 09 20 30 33 30 |: INTEGE|R).. 030|
|00003130| 48 2c 20 30 31 46 48 2c | 20 30 32 30 48 2c 20 30 |H, 01FH,| 020H, 0|
|00003140| 35 46 48 2c 20 30 41 34 | 48 2c 20 30 35 36 48 3b |5FH, 0A4|H, 056H;|
|00003150| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 5b 43 4f 44 |..PROCED|URE [COD|
|00003160| 45 5d 20 53 74 72 69 70 | 55 70 70 65 72 54 65 78 |E] Strip|UpperTex|
|00003170| 74 2a 28 74 65 78 74 50 | 74 72 3a 20 4d 61 63 54 |t*(textP|tr: MacT|
|00003180| 79 70 65 73 2e 50 74 72 | 3b 20 6c 65 6e 3a 20 49 |ypes.Ptr|; len: I|
|00003190| 4e 54 45 47 45 52 29 0d | 09 20 30 33 30 48 2c 20 |NTEGER).|. 030H, |
|000031a0| 30 31 46 48 2c 20 30 32 | 30 48 2c 20 30 35 46 48 |01FH, 02|0H, 05FH|
|000031b0| 2c 20 30 41 36 48 2c 20 | 30 35 36 48 3b 2a 29 0d |, 0A6H, |056H;*).|
|000031c0| 0d 28 2a 0d 09 54 68 65 | 20 66 6f 6c 6c 6f 77 69 |.(*..The| followi|
|000031d0| 6e 67 20 70 72 6f 76 69 | 64 65 20 64 69 72 65 63 |ng provi|de direc|
|000031e0| 74 20 66 75 6e 63 74 69 | 6f 6e 20 70 72 6f 74 6f |t functi|on proto|
|000031f0| 74 79 70 65 73 20 66 6f | 72 20 6e 65 77 20 6e 61 |types fo|r new na|
|00003200| 6d 65 73 20 66 6f 72 20 | 36 38 6b 0d 2a 29 0d 50 |mes for |68k.*).P|
|00003210| 52 4f 43 45 44 55 52 45 | 20 5b 43 4f 44 45 5d 20 |ROCEDURE| [CODE] |
|00003220| 44 61 74 65 53 74 72 69 | 6e 67 2a 28 64 61 74 65 |DateStri|ng*(date|
|00003230| 54 69 6d 65 3a 20 4c 4f | 4e 47 49 4e 54 3b 20 6c |Time: LO|NGINT; l|
|00003240| 6f 6e 67 46 6c 61 67 3a | 20 44 61 74 65 46 6f 72 |ongFlag:| DateFor|
|00003250| 6d 3b 20 56 41 52 20 72 | 65 73 75 6c 74 3a 20 4d |m; VAR r|esult: M|
|00003260| 61 63 54 79 70 65 73 2e | 53 74 72 32 35 35 3b 20 |acTypes.|Str255; |
|00003270| 69 6e 74 6c 48 61 6e 64 | 6c 65 3a 20 4d 61 63 54 |intlHand|le: MacT|
|00003280| 79 70 65 73 2e 48 61 6e | 64 6c 65 29 0d 09 20 30 |ypes.Han|dle).. 0|
|00003290| 33 46 48 2c 20 30 33 43 | 48 2c 20 30 30 30 48 2c |3FH, 03C|H, 000H,|
|000032a0| 20 30 30 45 48 2c 20 30 | 41 39 48 2c 20 30 45 44 | 00EH, 0|A9H, 0ED|
|000032b0| 48 3b 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 5b 43 |H;..PROC|EDURE [C|
|000032c0| 4f 44 45 5d 20 54 69 6d | 65 53 74 72 69 6e 67 2a |ODE] Tim|eString*|
|000032d0| 28 64 61 74 65 54 69 6d | 65 3a 20 4c 4f 4e 47 49 |(dateTim|e: LONGI|
|000032e0| 4e 54 3b 20 77 61 6e 74 | 53 65 63 6f 6e 64 73 3a |NT; want|Seconds:|
|000032f0| 20 42 4f 4f 4c 45 41 4e | 3b 20 56 41 52 20 72 65 | BOOLEAN|; VAR re|
|00003300| 73 75 6c 74 3a 20 4d 61 | 63 54 79 70 65 73 2e 53 |sult: Ma|cTypes.S|
|00003310| 74 72 32 35 35 3b 20 69 | 6e 74 6c 48 61 6e 64 6c |tr255; i|ntlHandl|
|00003320| 65 3a 20 4d 61 63 54 79 | 70 65 73 2e 48 61 6e 64 |e: MacTy|pes.Hand|
|00003330| 6c 65 29 0d 09 20 30 33 | 46 48 2c 20 30 33 43 48 |le).. 03|FH, 03CH|
|00003340| 2c 20 30 30 30 48 2c 20 | 30 31 30 48 2c 20 30 41 |, 000H, |010H, 0A|
|00003350| 39 48 2c 20 30 45 44 48 | 3b 0d 0d 50 52 4f 43 45 |9H, 0EDH|;..PROCE|
|00003360| 44 55 52 45 20 5b 43 4f | 44 45 5d 20 4c 6f 6e 67 |DURE [CO|DE] Long|
|00003370| 44 61 74 65 53 74 72 69 | 6e 67 2a 28 56 41 52 20 |DateStri|ng*(VAR |
|00003380| 64 61 74 65 54 69 6d 65 | 3a 20 4d 61 63 4f 53 55 |dateTime|: MacOSU|
|00003390| 74 69 6c 73 2e 4c 6f 6e | 67 44 61 74 65 54 69 6d |tils.Lon|gDateTim|
|000033a0| 65 3b 20 6c 6f 6e 67 46 | 6c 61 67 3a 20 44 61 74 |e; longF|lag: Dat|
|000033b0| 65 46 6f 72 6d 3b 20 56 | 41 52 20 72 65 73 75 6c |eForm; V|AR resul|
|000033c0| 74 3a 20 4d 61 63 54 79 | 70 65 73 2e 53 74 72 32 |t: MacTy|pes.Str2|
|000033d0| 35 35 3b 20 69 6e 74 6c | 48 61 6e 64 6c 65 3a 20 |55; intl|Handle: |
|000033e0| 4d 61 63 54 79 70 65 73 | 2e 48 61 6e 64 6c 65 29 |MacTypes|.Handle)|
|000033f0| 0d 09 20 30 33 46 48 2c | 20 30 33 43 48 2c 20 30 |.. 03FH,| 03CH, 0|
|00003400| 30 30 48 2c 20 30 31 34 | 48 2c 20 30 41 39 48 2c |00H, 014|H, 0A9H,|
|00003410| 20 30 45 44 48 3b 0d 0d | 50 52 4f 43 45 44 55 52 | 0EDH;..|PROCEDUR|
|00003420| 45 20 5b 43 4f 44 45 5d | 20 4c 6f 6e 67 54 69 6d |E [CODE]| LongTim|
|00003430| 65 53 74 72 69 6e 67 2a | 28 56 41 52 20 64 61 74 |eString*|(VAR dat|
|00003440| 65 54 69 6d 65 3a 20 4d | 61 63 4f 53 55 74 69 6c |eTime: M|acOSUtil|
|00003450| 73 2e 4c 6f 6e 67 44 61 | 74 65 54 69 6d 65 3b 20 |s.LongDa|teTime; |
|00003460| 77 61 6e 74 53 65 63 6f | 6e 64 73 3a 20 42 4f 4f |wantSeco|nds: BOO|
|00003470| 4c 45 41 4e 3b 20 56 41 | 52 20 72 65 73 75 6c 74 |LEAN; VA|R result|
|00003480| 3a 20 4d 61 63 54 79 70 | 65 73 2e 53 74 72 32 35 |: MacTyp|es.Str25|
|00003490| 35 3b 20 69 6e 74 6c 48 | 61 6e 64 6c 65 3a 20 4d |5; intlH|andle: M|
|000034a0| 61 63 54 79 70 65 73 2e | 48 61 6e 64 6c 65 29 0d |acTypes.|Handle).|
|000034b0| 09 20 30 33 46 48 2c 20 | 30 33 43 48 2c 20 30 30 |. 03FH, |03CH, 00|
|000034c0| 30 48 2c 20 30 31 36 48 | 2c 20 30 41 39 48 2c 20 |0H, 016H|, 0A9H, |
|000034d0| 30 45 44 48 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 |0EDH;..P|ROCEDURE|
|000034e0| 20 5b 43 4f 44 45 5d 20 | 43 6f 6d 70 61 72 65 54 | [CODE] |CompareT|
|000034f0| 65 78 74 2a 28 61 50 74 | 72 3a 20 4d 61 63 54 79 |ext*(aPt|r: MacTy|
|00003500| 70 65 73 2e 50 74 72 3b | 20 62 50 74 72 3a 20 4d |pes.Ptr;| bPtr: M|
|00003510| 61 63 54 79 70 65 73 2e | 50 74 72 3b 20 61 4c 65 |acTypes.|Ptr; aLe|
|00003520| 6e 3a 20 49 4e 54 45 47 | 45 52 3b 20 62 4c 65 6e |n: INTEG|ER; bLen|
|00003530| 3a 20 49 4e 54 45 47 45 | 52 3b 20 69 74 6c 32 48 |: INTEGE|R; itl2H|
|00003540| 61 6e 64 6c 65 3a 20 4d | 61 63 54 79 70 65 73 2e |andle: M|acTypes.|
|00003550| 48 61 6e 64 6c 65 29 3a | 20 49 4e 54 45 47 45 52 |Handle):| INTEGER|
|00003560| 0d 09 20 30 33 46 48 2c | 20 30 33 43 48 2c 20 30 |.. 03FH,| 03CH, 0|
|00003570| 30 30 48 2c 20 30 31 41 | 48 2c 20 30 41 39 48 2c |00H, 01A|H, 0A9H,|
|00003580| 20 30 45 44 48 3b 0d 0d | 50 52 4f 43 45 44 55 52 | 0EDH;..|PROCEDUR|
|00003590| 45 20 5b 43 4f 44 45 5d | 20 49 64 65 6e 74 69 63 |E [CODE]| Identic|
|000035a0| 61 6c 54 65 78 74 2a 28 | 61 50 74 72 3a 20 4d 61 |alText*(|aPtr: Ma|
|000035b0| 63 54 79 70 65 73 2e 50 | 74 72 3b 20 62 50 74 72 |cTypes.P|tr; bPtr|
|000035c0| 3a 20 4d 61 63 54 79 70 | 65 73 2e 50 74 72 3b 20 |: MacTyp|es.Ptr; |
|000035d0| 61 4c 65 6e 3a 20 49 4e | 54 45 47 45 52 3b 20 62 |aLen: IN|TEGER; b|
|000035e0| 4c 65 6e 3a 20 49 4e 54 | 45 47 45 52 3b 20 69 74 |Len: INT|EGER; it|
|000035f0| 6c 32 48 61 6e 64 6c 65 | 3a 20 4d 61 63 54 79 70 |l2Handle|: MacTyp|
|00003600| 65 73 2e 48 61 6e 64 6c | 65 29 3a 20 49 4e 54 45 |es.Handl|e): INTE|
|00003610| 47 45 52 0d 09 20 30 33 | 46 48 2c 20 30 33 43 48 |GER.. 03|FH, 03CH|
|00003620| 2c 20 30 30 30 48 2c 20 | 30 31 43 48 2c 20 30 41 |, 000H, |01CH, 0A|
|00003630| 39 48 2c 20 30 45 44 48 | 3b 0d 0d 50 52 4f 43 45 |9H, 0EDH|;..PROCE|
|00003640| 44 55 52 45 20 5b 43 4f | 44 45 5d 20 4c 61 6e 67 |DURE [CO|DE] Lang|
|00003650| 75 61 67 65 4f 72 64 65 | 72 2a 28 6c 61 6e 67 75 |uageOrde|r*(langu|
|00003660| 61 67 65 31 3a 20 4c 61 | 6e 67 43 6f 64 65 3b 20 |age1: La|ngCode; |
|00003670| 6c 61 6e 67 75 61 67 65 | 32 3a 20 4c 61 6e 67 43 |language|2: LangC|
|00003680| 6f 64 65 29 3a 20 49 4e | 54 45 47 45 52 0d 09 20 |ode): IN|TEGER.. |
|00003690| 30 33 46 48 2c 20 30 33 | 43 48 2c 20 30 30 30 48 |03FH, 03|CH, 000H|
|000036a0| 2c 20 30 32 30 48 2c 20 | 30 41 39 48 2c 20 30 45 |, 020H, |0A9H, 0E|
|000036b0| 44 48 3b 0d 0d 50 52 4f | 43 45 44 55 52 45 20 5b |DH;..PRO|CEDURE [|
|000036c0| 43 4f 44 45 5d 20 54 65 | 78 74 4f 72 64 65 72 2a |CODE] Te|xtOrder*|
|000036d0| 28 61 50 74 72 3a 20 4d | 61 63 54 79 70 65 73 2e |(aPtr: M|acTypes.|
|000036e0| 50 74 72 3b 20 62 50 74 | 72 3a 20 4d 61 63 54 79 |Ptr; bPt|r: MacTy|
|000036f0| 70 65 73 2e 50 74 72 3b | 20 61 4c 65 6e 3a 20 49 |pes.Ptr;| aLen: I|
|00003700| 4e 54 45 47 45 52 3b 20 | 62 4c 65 6e 3a 20 49 4e |NTEGER; |bLen: IN|
|00003710| 54 45 47 45 52 3b 20 61 | 53 63 72 69 70 74 3a 20 |TEGER; a|Script: |
|00003720| 53 63 72 69 70 74 43 6f | 64 65 3b 20 62 53 63 72 |ScriptCo|de; bScr|
|00003730| 69 70 74 3a 20 53 63 72 | 69 70 74 43 6f 64 65 3b |ipt: Scr|iptCode;|
|00003740| 20 61 4c 61 6e 67 3a 20 | 4c 61 6e 67 43 6f 64 65 | aLang: |LangCode|
|00003750| 3b 20 62 4c 61 6e 67 3a | 20 4c 61 6e 67 43 6f 64 |; bLang:| LangCod|
|00003760| 65 29 3a 20 49 4e 54 45 | 47 45 52 0d 09 20 30 33 |e): INTE|GER.. 03|
|00003770| 46 48 2c 20 30 33 43 48 | 2c 20 30 30 30 48 2c 20 |FH, 03CH|, 000H, |
|00003780| 30 32 32 48 2c 20 30 41 | 39 48 2c 20 30 45 44 48 |022H, 0A|9H, 0EDH|
|00003790| 3b 0d 0d 45 4e 44 20 4d | 61 63 54 65 78 74 55 74 |;..END M|acTextUt|
|000037a0| 69 6c 73 2e 82 f1 54 65 | 78 74 43 6f 6e 74 72 6f |ils...Te|xtContro|
|000037b0| 6c 6c 65 72 73 2e 53 74 | 64 43 74 72 6c 44 65 73 |llers.St|dCtrlDes|
|000037c0| 63 00 f1 54 65 78 74 43 | 6f 6e 74 72 6f 6c 6c 65 |c..TextC|ontrolle|
|000037d0| 72 73 2e 43 6f 6e 74 72 | 6f 6c 6c 65 72 44 65 73 |rs.Contr|ollerDes|
|000037e0| 63 00 f1 43 6f 6e 74 61 | 69 6e 65 72 73 2e 43 6f |c..Conta|iners.Co|
|000037f0| 6e 74 72 6f 6c 6c 65 72 | 44 65 73 63 00 f1 43 6f |ntroller|Desc..Co|
|00003800| 6e 74 72 6f 6c 6c 65 72 | 73 2e 43 6f 6e 74 72 6f |ntroller|s.Contro|
|00003810| 6c 6c 65 72 44 65 73 63 | 00 f2 04 00 00 00 00 00 |llerDesc|........|
|00003820| 00 00 14 00 00 00 00 00 | 00 00 09 00 00 00 00 00 |........|........|
|00003830| 00 00 00 00 00 00 00 00 | 00 01 82 f2 0e 00 00 00 |........|........|
|00003840| 00 00 00 00 61 00 00 00 | 07 00 00 00 59 00 00 00 |....a...|....Y...|
|00003850| 00 00 00 83 f2 10 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003860| 00 08 00 00 00 3f 00 00 | 00 00 00 00 00 82 f2 12 |.....?..|........|
|00003870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 24 |........|.......$|
|00003880| 00 00 00 00 01 00 00 00 | 00 00 00 00 00 20 a3 5a |........|..... .Z|
|00003890| 00 00 00 00 00 7c be 01 | 00 38 63 00 00 01 00 00 |.....|..|.8c.....|
|000038a0| 00 01 00 00 00 00 00 00 | 00 82 f2 0d 00 00 00 00 |........|........|
|000038b0| 00 00 00 00 00 00 00 00 | 00 00 00 22 00 00 00 00 |........|..."....|
|000038c0| 00 00 00 00 01 00 00 00 | 00 48 65 6c 76 65 74 69 |........|.Helveti|
|000038d0| 63 61 00 7c be 01 00 00 | 00 00 00 90 01 00 00 00 |ca.|....|........|
|000038e0| 00 00 00 00 00 00 00 00 | 00 e0 8c 01 00 e0 8c 01 |........|........|
|000038f0| 00 00 30 5c 00 df 8c 01 | 40 82 f1 44 6f 63 75 6d |..0\....|@..Docum|
|00003900| 65 6e 74 73 2e 43 6f 6e | 74 72 6f 6c 6c 65 72 44 |ents.Con|trollerD|
|00003910| 65 73 63 00 f2 15 00 00 | 00 00 00 00 00 00 00 00 |esc.....|........|
|00003920| 00 00 00 00 00 08 00 00 | 00 00 00 00 00 00 09 00 |........|........|
|00003930| 00 00 00 94 4d 73 00 18 | 2b a3 00 80 fc 0a 00 80 |....Ms..|+.......|
|00003940| fc 0a 00 14 51 68 00 98 | 2e 98 00 00 00 00 00 00 |....Qh..|........|
|00003950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003980| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00003990| 00 45 00 00 00 13 00 0a | d5 22 00 00 03 1c 00 20 |.E......|."..... |
|000039a0| 00 00 00 00 00 00 00 45 | 00 00 00 12 00 0a d5 35 |.......E|.......5|
|000039b0| 09 54 65 78 74 55 74 69 | 6c 73 02 00 00 00 50 61 |.TextUti|ls....Pa|
|000039c0| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 00 |rtSIT!..|........|
|000039d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000039e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039f0| 00 00 ae 04 81 89 00 00 | 00 00 00 00 01 3e 00 45 |........|.....>.E|
|00003a00| 00 00 00 15 00 0a d5 82 | 00 00 03 21 00 20 00 00 |........|...!. ..|
|00003a10| 00 00 00 00 00 45 00 00 | 00 11 00 0a d5 97 00 00 |.....E..|........|
|00003a20| 03 22 00 20 00 00 00 00 | 00 00 00 45 00 00 00 1a |.". ....|...E....|
|00003a30| 00 0a d5 a8 00 00 03 23 | 00 20 00 00 00 00 00 00 |.......#|. ......|
|00003a40| 00 45 00 00 00 12 00 0a | d5 c2 00 00 03 24 00 20 |.E......|.....$. |
|00003a50| 00 00 00 00 00 00 00 45 | 00 00 00 13 00 0a d5 d4 |.......E|........|
|00003a60| 00 00 03 25 00 20 00 00 | 00 00 00 00 00 45 00 00 |...%. ..|.....E..|
|00003a70| 00 11 00 0a d5 e7 00 00 | 03 26 00 20 00 00 00 00 |........|.&. ....|
|00003a80| 00 00 00 08 00 28 00 65 | 01 d1 02 66 00 00 01 00 |.....(.e|...f....|
|00003a90| 00 00 01 0c 00 00 00 0c | 00 00 00 32 01 24 0d b8 |........|...2.$..|
|00003aa0| 22 86 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |"......2|..WNSP..|
|00003ab0| 00 0a 00 01 ff ff 00 00 | 00 00 01 24 0d 68 00 00 |........|...$.h..|
|00003ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+